USER (DOCUMENTATION 
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SEQ OOl 



.REM_ 
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THE INFORMATION IN THJS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
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NO RESPONSIBILITY IS ASSUMEO FOR THE USE OR RELIABILITY OF 
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CI 
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CIS 



tr ii?mM'%h<tm& 


3237 044022 






044022 


104455 




044024 


002131 




044026 


003644 ' 




044030 


011644' 




3238 044032 






3239 044032 


012704 


044530' 


3240 044036 


0O4737 


010472' 


3241 044042 


103404 




3245 044044 






044044 


104456 




044046 


002132 




044050 


005050 • 




044052 


011644* 




3246 044054 






324 7 044054 


0O4737 


045534* 


3248 044060 


012704 


044460' 


3249 044064 






3250 044064 


005037 


002222' 


3251 044070 


010465 


000000 


3252 044074 


0O4737 


016146' 


3253 044100 


103405 




3254 044102 


010001 




3258 044104 






044104 


104455 




044106 


002133 




044110 


045100' 




044112 


011656' 




3259 044114 






044U4 


104406 




3260 044116 






044116 


104410 




044120 


000074 




3261 044122 


005737 


002222' 


3262 044126 


001004 




3266 044130 






044130 


104456 




044132 


002134 




044134 


045154' 




044136 


011656' 




3267 044140 


016501 


000002 


3266 044144 


012702 


000200 


3269 044150 


032 701 


00C100 


3270 044154 


001402 




3271 044156 


052702 


000100 


32 72 044162 


020201 




32 73 044164 


001404 




3277 044166 






044166 


104456 




044170 


002135 




0*4172 


044713' 




0441/4 


011656' 




32 '« 044176 






32 7 c > 044176 


004757 


010724' 


3280 04*202 


103405 




32tt4 044204 






044204 


104 4 So 
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3$} 



4*: 



151: 



2?*: 



25»$ 



301: 
35*! 



ERRDF ERRNCSFIERR, SFIMSG 



MCV 0T11PK2.R4 

JSR PC.WRTCHR 

BCS 41 

ERrtHRD ERRNO.WRTMSG, SFIMSG 





JSR 


PC.TUREST 




MOV 


*T11PACKET,R4 


51: 






10$! 


ClR 


INTRECV 




MOV 


R4,TSDB(R5) 




JSR 


PC.CHKT5SR 




BCS 


15$ 




MOV 


R0.R1 




ERRDF 


ERRN0.T11SR2.PKTSSR 



CKLOOP 
ESCAPE SEG 



TST INTRECV 

BNE 22\ 

ERRHRD ERRNO.TUNINT, PKTSSR 



MOV 


TSSR(R5),R1 


MOV 


•ssr,;^ 


BIT 


•OFI..RJ 


HEQ 


25i 


BIS 


*ori ,R5 


CMP 


R2.R1 


BEQ 


301 


ERRHRO 


ERRN0,UX3REJ,PKrSS:» 



JSR PC.CKRAM 
BCS 591 

ERRHRD ERRNO.PKTRAM.RAMERR 



iDEVICE FATAL ERRuR 



DURING INIT 
TRAP 
.WORD 
.WORD 
.WORD 



jWRITE CHARACTERISTICS PACKET 
i ISSUE WRITE CHARACTERISTICS 
l BR, IF COMMANO ISSUED OK 
jWRITE CHARACTERISTISC 



SEQ 158 



CIERDF 
1113 

SFIERR 

SFIMSG 



FAILED 




TRAP 


CJERHRD 


.WORD 


1114 


.WORD 


HRTMSG 


.WORD 


SFIMSG 



I SET UP PACKET FOR COMMANO 

I GET THE ADDRESS OF COMMAND PACKET 



iCLEAR INTERRUPT REC >. \ .-.0 Fl AG 

l SET THE PACKET ADORi SS 

iWAIT FOR SSR TO SET 

I BR IF CARRY SET (GOOO RETURN) 

i SAVE CONTENTS OF TSSR 

iDEVICE FATAL. SSR FAILED TO SET 

TRAP 
.WORE 
.WORD 
.WORD 

I LOOP ON ERROR, IF FLAG SET 

TRAP 

iBY-PASS SUBTEST IF FATAL ERROR 

TRAP 
.WORD 
OCCLK ? 



jDIO AN 
l BRANCH 



INTERRUPT 
IK YES 



TRAP 
.WORD 

.uqro, 

.WORlT 
iGET THE CONTENTS OF TSSR 
i EXPECTED CONTENTS OF TSSR 
il* OFF LINE BIT SET ? 
I BRANCH IF NOT OFF-LINE 
iSET OFF-LINE IN EXPECTED DATA 
•DOES EXPECTED MATCH RECEIVED ? 
•OKAY IF MATCH 
I COMMANO NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

I CHECK RAM TO MEMORY 
,RAM OK GO ON 
jTHEY DON' T MATCH 

TRAP 



CIERDF 

1115 

T11SR2 

PKTSSR 

CtCLPl 

CIESCAPE 
10000$-. 



CIERHRD 
1116 
T11NINT 
PKTSSR 



CIERHRD 

1117 

T113RFJ 

PKTSSR 



CIERHRD 
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SEQ 018 



AND THE REGISTER MODIFICATION REFUSED (RMR) LOGIC, 



TEST 11: NON-TAPE MOTION COMMANDS 

THIS TEST VERIFIES PROPER OPERATION OF THE INITIALIZE 
COMMAND. TWO SUBTESTS ARE USED, THE FIRST VERIFIES THAT 
THE COMMAND RUNS TO COMPLETION AND STORES A VALID 
MESSAGE PACKET. THE SECOND VERIFIES THAT NON-ZERO 
VALUES IN THE COMMAND MODE FIELD CAUSES COMMAND REJECT. 



7,0 MAINTENANCE HISTORY 



REVISION A - MARCH 198?. 
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G2 



SEQ 019 



2 

3 

4 

b 

6 

12 

13 

14 

15 

21 

22 
23 
24 



26 

27 

2a 

29 
30 
31 
32 
33 



000000 



000000 



002000 
002000 



002000 
002000 
002000 
002000 
002001 
002002 
002003 
0020O4 
002005 
002006 
002007 
002010 
002010 
002011 
002011 
002012 
002012 
002014 
002014 
002016 
002C16 
002020 
002020 
002022 
002022 
002024 
002024 
002026 
002026 
002030 
002030 
002032 
002032 
002034 

QQ2Q34 



002000 1 



103 
132 
124 
123 
101 
000 
000 
000 

101 

060 

000000 

0012] 7 

045444' 

045576' 

00215V 

002164' 

045672' 

000000 

000000 

000000 



.TITLE TSV2 - PROGRAM HEADER 
.SBTTL PROGRAM HEADER 
.PSECT ABS 



i 



TSV2:: 



I ♦♦ 



.MCALL SVC 
SVC 

.ENABLE LC 
.NLIST BEX.CND 
.ENABL AMA 
.-.♦2000 
. -2000 
BGNMOD TSV2 



{ INITIALIZE SUPERVISOR MACROS 



j THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
j THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 



LJNAME: 



LJREV: 
L*DEP0 
LtUNIT 
LITIML 
L$HPCP 
L$SPCP 
LIHPTP 
L$SPTP 
t.JLADP 
LVSTA: 
LICOj; 
L^DTYPj 



POINTER BGNSW , BGNSF T 1 8GNAU , BGNDU , BGNRPT 
HEADER CZTSA,A. 0.655. # 

j DIAGNOSTIC NAME 



.ASCII 


/c/ 




.ASCII 


/!/ 




.ASCII 


/!/ 




.ASCII 


/S/ 




.ASCII 


/A/ 




.BYTE 







.BYTE 







.BYTE 





iREVISION LEVEL 


.ASCII 


/A/ 


»o 


' '.ASCII 


/O/ 


jNUMBER OF UNITS 


* '.WORO 





jLONGEST TEST TIME 


' ' . WORD 


655. 


jPOINTER TO H.W. QUES. 


' * . WORD 


L$HARD 


j POINTER TO S.W. QUES. 


* '.WORD 


L5S0FT 


|PTR, TO DEF, H.W. PTABLE 


.WORD 


L$HW 


jPTA, TO S.W. PTABLE 


' ' . WORD 


L$SW 


}DIAG. END ADDRESS 


' '.WORD 


LiLAST 


RESERVED FOR APT STATS 


.WORD 







.WORD 







• • 




^DIAGNOSTIC TYPE 


.WORD 








-'2 



TSV2 



- PROGRAM 


HEADER MACRO 


M1113 07-FEB fl4 


10 s 58 






AM HEADER 












002036 




LIAPTj ; 






;APT EXPANSION 


002036 


OOCOOO 




.WORD 







002040 




LIDTPj j 






iPTR. TO DISPATCH TABLE 


002040 


002124 « 




.WORD 


L IDISPATCH 


002042 




LIPRIO; 






iDIAGUOSTIC RUN PRIORITY 


002042 


000000 




* .WORD 







002044 




LIENVI: 






iFI.AGS DESCRIBE HOW IT WAS SETUP 


002044 


000000 




'.WORD 







002046 




LIEXPli 






{EXPANSION WORD 


002046 


oooooo 




' .WORD 







002050 




I.IMREV: 






iSVf. RFV AND EDIT 


002050 


003 




' .BYTE 


CIREVISION 


002051 


003 




.BYTE 


ClEDIT 




002052 




L*EF S j 






iDIAG. EVENT FLAGS 


002052 


oooooo 




.WORD 







002054 


oooooo 




V^ORO 







002056 




L I sPC : 








002056 


oooooo 




.WORD 







002060 




LftOEVP 






1 POINTER TO DEVICE TYPE LIST 


002060 


003400' 




* .WORD 


LiDVTYP 




002062 




LtREPP 






jPTR. TO REPORT CODE 


002062 


022434' 




" .WORD 


LIRPT 




002064 




LIEXP4 








002064 


OOOOOO 




* .WORD 







002066 




LIEXP5 








002066 


OOOOOO 




'.WORD 







002070 




LIAUT; 






jPTR. TO ADD UNIT CODE 


002070 


022122' 




.WORD 


LIAU 




002072 




LIDUI"; 






»PTR. TO DROP UNIT CODE 


002072 


022220* 




.WORD 


LIDU 




002074 




L$LUN: 






iLUN FOR EXERCISERS TO FILL 


002074 


OOOOOO 




.WORD 







002076 




LIDESP 


• 




{POINTER TO DIAG. DESCRIPTION 


002076 


003406* 




.WORD 


LIDESC 




002100 




LILOAD 


j 




tGENERATE SPECIAL AUTOLOAD EMT 


002100 


104035 




EMT 


El LOAD 




002102 




LIETPj 






jPOINTER TO ERRTBL 


002102 


OOOOOO 




.WORD 







002104 




LltCP: 






iPTR TO INIT CODE 


002104 


021326* 




.WORD 


LIINll 




002106 




LICCP: 






tPTR. TO CLEAN-UP CODE 


002106 


022406* 




.WORD 


LI CLEAN 




002110 




LIACP: 






jPTR, TO AUTO CODE 


002110 


022326* 




.WORD 


LI AUTO 




002112 




LtPRT: 






iMR. TO PROTECT TABLE 


002112 


021316* 




.WORD 


LIPROT 




002114 




LSTEST 


; 




llEST NUMBER 


002114 


OOOOOO 




.WORD 







002116 




LIDLY: 






jDELAY COUNT 


002116 


OOOOOO 




.WORD 







002120 




U1HXME 


* 
% » 




iPTR. TO HIQH MJiM 


002 120 

34 
35 


OQQOOQ 




.WORD 







36 
37 
3d 






.SBTTL 


DISPATCH TABLE 



SEQ 020 
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TEST 11: NON-TAPE MOTION COMMANDS 
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HI 3 



SEQ 163 



1 
7 

12 
18 

19 045A4<? 
045442 
20 

21 

22 
23 
24 
25 
26 
27 
23 
29 
30 
31 
32 



33 



35 



36 
37 



38 
39 
40 
41 
4? 
M 
4>1 
4i. 
46 
4/ 
48 
49 
50 
51 
52 
53 



54 
55 



045442 
045442 
045444 

045444 
045444 
04544f 
045450 
045452 
045454 
045454 
045456 
045*460 
045462 

045464 

0"5464 
045464 

Oi5520 
C4b544 



0455 ?A 
04557<* 
045576 

045576 
045576 



000010 



000031 
045464* 
160010 
177776 

C01C31 

04552C 
0000 00 
000776 



104 
111 
Ul 



105 
13c 
116 



000003 



001130 



TSV61; 



, TITLE TSV6 - PARAMETER CODING 



BGNMOD TSV6 



.SBTTL HARDWARE PARAMETER CODING SECTION 



i ♦♦ 



THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P- TABLES, THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



L$HARDs: 



BGNHRD 

.WORD L101O7-L$HARD/2 



L10107: 



126 HPM1 
124 HPK?. 
124 KPM3 



l ♦* 



GPRMA HPMI.0,0, 160010, 177776, YES 

.WORD TtCODE 

.WORD HPM1 

.WORD TILOLIM 

.WORD TIHILIM 

GPRMA MPM2,2,0,0,776,YES 

.WORD T I CODE 

. WORD HPM2 

.WORD TILOLIM 

.WORD TJHILIM 

jGPRMO HPM3, 4, 0,340, 0,7, YES 

ENDHRD 

.EVEN 

.ASCI2 'DEVICE ADDRESS CTSBA/TSDB) ' 

.ASCIZ 'INTERRUPT VECTOR 

.ASCIZ 'INTERRUPT PRIORITY 
.EVEN 



•SttTTL SOFTWARE PARAMETER CODING SECTIUN 



>GET TSBA/TSDB REGISTER ADDRESS 



j GET VECTOR ADUfttbS, 



;GET INTERRUPT PRIORITY. 



t THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
l THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
I MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
l INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
, MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITu THE OPERATOR. 



I ^;0("T 



BGNSFV 
WORD L1011O-LIS0FT/2 

Gf.\i1\. SPM1 ,0.-1. YES 
GPRHl 'iPr-W.2, -l.YES 

WORD T I CODE 



GET 
GET 



TRANSPORT 
ITERATION 



TEST (LAG 
CONTROL. 
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SEQ 009 



NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGl S WHEN A 
NON-DEFAULT RESPONSE IS GIVEN, BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS' 

AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 

DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 

NOT VERY EFFICIENT, 

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
LET'S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION 
FEATURE. 

* UNITS (D) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SL8-DFVICE * CO) ? 0,1<CR> 
Q-FACTOR (0) ? 1,0<CR> 

UNIT 3 

CSR ADDRESS CO) ? 160000<CR> 
SUB-DEVICE * CO) ? 2-5<CR> 
Q-FACTOR CO) ? 0<CR^ 

UNIT 7 

CSR ADDRESS CO) ? 160000<CR> 
Sl«-DEVICE CO) ? 6,7<CR> 
Q-FACTOR (0) ? 1<CR> 

AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH the INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS, FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SU6-DF.VICES WERE SPECIFIED. THE 
"-" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE OATA 
FROM THE FIRST NUMBER TO THE SECONO. IN THIS CASE, SUB^DEVICES 
2. 3, 4 ANO 5 WERE SPECIFIED. C IF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES. THE INCREMENT WOU-D BE BY 2 SINCE ADDRESSES MUST 
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 

THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 

UNITS CD) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE * CO) ? 0-7<CR> 
Q-FACTOR CO) ? 0, 1 ,0, , , , 1 , 1<CK> 

AS tOU- CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 



TSV3 - GLOBAL AREAS 
SOFTWARE P- TABLE 



7 

8 

13 

19 

20 



21 
22 
23 
24 
25 
26 
27 
26 
29 
33 



002174 
002174 



002174 



100000 
040000 
O20OC0 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

001000 
000400 
000200 
000100 
000040 
00002C 
000010 
000004 
000002 
000001 



000040 
000037 
000036 
000035 
000034 
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l<2 



SEQ 023 



TSV3;j 



.TI.'lE TSV3 - GLOBAL AREAS 
.SBTTL GLOBAL EQUATES SECTION 



BGNMOD TSV3 



.SBTTL GLOBAL EQUATES SECTION 



♦ + 



j THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
5 ARE USED IN MORE THAN ONE TEST. 



EQUALS 



I GET STANDARD EQUATES 



! BIT DIFINITI 


BIT15-- 


■ 100000 


BIT14-. 


• 40000 


BIT13-. 


■ 20000 


BIT12-* 


- 10000 


BIT11-- 


■ 4000 


BIT1C-- 


• 2000 


BIT09-" 


• 1000 


BIT08" 


■ 400 


BIT07-- 


■ 200 


BIT06-- 


• 100 


BIT05- 


• 40 


BIT04- 


• 20 


BIT03- 


• 10 


3IT02-- 


- 4 


BI101-- 


• 2 


BIT00-' 


« 1 


BIT9-- 


BIT09 


BIT8-- 


BIT08 


BIT7-- 


BIT07 


BIT6-- 


BIT06 


BIT5-- 


BIT05 


BIT4-- 


BIT04 


HIT3-- 


BIT03 


HIT2-- 


BIT02 


BIT1-- 


BIT01 


BITO-- 


BITOO 



t EVENT FLAG DEFINITIONS 

; EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 



EF 


START-- 


32. 


EF 


RESTART-- 


31. 


EF 


CONTINUE-- 


30. 


EF 


NEW-- 


29. 


EF 


.PWR-- 


28, 



j START COMMAND WAS ISSUED 
j RESTART COMMAND WAS ISSUED 
l CONTINUE COMMAND WAS ISSUED 
i A NEW PASS HAS BEEN STARTED 
; A POWER-FAIL/POWER-UP OCCURRED 



TSV3 - GLOBAL AREAS 
GLOBAL EQUATES SECTION 



L2 
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SEO 024 



} PRIORITY LEVEL DEFINITIONS 



34 

3b 002174 



000340 
000300 
000240 
000200 
000140 
000100 
000040 
000000 



000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 



000250 

177572 

177574 
177576 
172516 



PRI07-- 340 


PRI06-- 300 


PRI05-- 240 


PRI04-- 200 


PHI03-- 140 


PRI02-- 100 


PRI01-- 40 


PRI00-- 


! OPERATOR FLAG BITS 


EVL-- 4 


LOT-- 


10 


ADR»« 


20 


IDU-' 


40 


ISR-> 


100 


UAM«> 


200 


BOE-- 


400 


PNT- 


1000 


PRI-' 


2000 


IXE«> 


4000 


IBE-- 


10000 


IER-- 


20000 


LOE-- 


40000 


HOE-- 100000 


KT11 


.SBTTL MEMORY MANAGEMENT DEFINITIONS 


{♦KT11 VECTOR ADDRESS 


MMVEC- 250 


i*KTll STATUS REGISTER ADDRESSES 


SRO- 177*72 


SRI- 177574 


SR2- 177576 


SR3- 172516 


.IF NB 


;*USER "I" PAGE DESCRIPTOR REGISTERS 


UIPDRO- 17T600 


UIPDR1- 177602 


UIPDR2- 177604 


UIPDR3- 177606 


UIPDR4- 177610 


OIP0R5- 177612 


UIP0R6- 177614 


UIPDR7- 177616 


.IF N8 


j*U5ER "D" PAGE DESCRIPTOR REGISTQRS 


UOPDRO- 177620 


U0PDR1- 177622 


U0PDR2- 17 7624 


UOPDR'.- 177626 


U0PDR4- 17 7630 


UDP0R5- 177632 


U0PDR6" 17 7634 


UDP0R7* 177656 



{DEFINE MEMORY MANAGEMENT REGISTERS 



TSV? Gi OJAL AREAS MACRO M1113 
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M2 



SEQ 025 



.ENDC 




{♦USER "I" PAGE 


ADDRESS REGISTERS 


UIPARO- 177640 




UIPAR1- 177642 




UIPAR2- 177644 




UIPAR3- 177646 




UIPAR4- 177650 




UIPAR5- 177652 




UIPAR6- 177654 




UIPAR7- 177656 




.IF NB 




{♦USER "[)" PAGE 


ADDRESS REGISTERS 


UDPARO» 1//660 




UDPAR1- 177662 




U0PAR2- 177664 




UDPAR3- 177666 




U0PAR4- 177670 




UDPAR5- 177672 




U0PAR6- 177674 




U0PAR7- 177676 




.ENDC 




.ENDC 




.IF N6 




{♦SUPERVISOR "I' 


* PAGE DESCRIPTOR REGISTERS 


SIPDRO* 172200 




SIPDR1- 172202 




SIP0R2- 172204 




SIP0R3- 172206 




SIPHR4- 172210 




GiPDRS" 172212 




SIPDR6- 172214 




SIPDR7- 172216 




.IF m 




{♦SUPERVISOR *'D 


' PAGE DESCRIPTOR REGISTERS 


S0 D ORO« 172220 




SOt 0R1- 172222 




SDPDR2- 172224 




SDP0R3- 172226 




SDPDR4- 172230 




SDPDR5- 172232 




S0P0R6- 172234 




SDPDR7- 172236 




.ENDC 




{♦SUPERVISOR "I 


* PAGE ADDRESS REGISTERS 


SIPARO- 172240 




SIPAR1- 172242 




SIPAR2- 172244 




SIPAR3- 172246 




SIPAR4* 172250 




SIPAR5- 172252 




SIPAR6- 172P54 




SIPAR7- 172256 




.IF NB 




{♦SUPERVISOR "0 


1 PAGE ADDRESS REGISTERS 


SDPARO- 172260 




SDPAR1- 172262 




SDPAR2* 172264 





N2 
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SEQ 026 



39 
■10 
41 

42 
4 3 
44 
45 
46 
47 



172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 



172340 
172342 
172344 
172346 
172350 
172352 
1/2354 
172356 



SDPAR3- 172266 

SDPAR4- 172270 

SDPAR5- 172272 

SDPAR6- 172274 

SDPAR7- 172276 

.ENDC 

.ENDC 

;*KERNEL "I" PAGE DESCRIPTOR REGISTERS 

KIPDRO- 172300 

172302 

172304 

172306 

172310 

172312 

172314 

172316 



KIPDR1 
KIPDR2 
KIPDR3 
KIPDR4 
KIPDR5 
KIPDR6 
KIPDR7 
.IF NB 

i*K£RNEL "D" PAGE 
DESCRIPTOR REGISTERS 
KOPORO- 172320 
K0PDR1- 172322 
K0P0R2- 172324 
KDPDR3* 172326 
KDPDR4- 172330 
KDPDR5- 172332 
KDPDR6- 172334 
KDPDR7- 172336 
.ENDC 

{♦KERNr.L "I" PAGE ADDRESS REGISTERS 
KIPARO- 172340 
KIPAR1- 172342 
K1PAR2- 172344 
KIPAR3- 172346 
KIPAR4- 172350 
KIPAR5- 172352 
KIHAR6- 172354 
172356 



KIPAR7- 
.IF NB 
j*KERNE 
KDPARO- 172360 
KDPAR1- 172362 
KDPAR2- 172364 



D" PAGE ADDRESS REGISTERS 



KDPAR3 
KDPMR4 
KDPAR5 
KDPAR6 

KDPAR7 ; 
.ENDC 



172366 
172370 
172372 
172374 
172376 



.SBTTL TSU05 REGISTER AND PACKET DEFINITIONS 



0Q0Q04 



SOME GENERAL EQUATES. 



ERRVEC»= 



j POINTER TO ERROR VECTOR FOR BU 



OUT, 



USER DOCUMENTATION 



B 






MACRO M1113 07-FEB-84 10:58 



SEQ 014 



FOLLOWS; 



CHANGE SW CD ? 



INHIBIT ITERATIONS CD N ? 



6.0 TEST SUMMARIES 
TEST i: BUS RESET TEST 

THIS TiZST VERIFIES THAT THE M7455 MODULE'S DEVICE REGISTERS ARE 
ACCESSIBLE ON THE BUS C SUBTEST t) ANO THEN CHECKS THAT THE 
BUILT-IN INITIALIZATION SELF -TEST MICROOI AGNOSTIC DID NOT FINO 
ANY BASIC PROBLEMS IN THE MOOULE. AREAS OF LOGIC TESTED BY HE 
SELF -TEST SECK^NCE ARE AS FOLLOWS: ROM AND PIPELINE REGISTER, 
SEQUENCER. INTERNAL BUSES. 2901 MICROPROCESSOR. AND. RAM. THIS 
TEST INITIALIZES THE CONTROLLER BY ISSUING THE BUS INT'f SIGNAL 
VIA A RESET INSTRUCTION. OR BY WRITING INTO THE TSSP. REGISTER. 
WAITS A PERIOD OF TIME (TO ALLOW THE CONTROLLER'S INITIALIZATION 
MICROOI AGNOSTIC SEQUENCE TO BE COMPLETED), AND T!<EN CHECKS THE 
CONTENTS OF THE TSSR REGISTER. SUCCESSFUL INITIALIZATION IS 
INOICATED BY SlASYSTEM READY CSSR) AND NEED BUFFER ADORESS (NBA) 
BITS BEING SET (1) AND ALL OTHER BITS (EXCEPT A17 ANO A16 ANO 
OFL. WHICH ARE IGNORED FOR THIS TEST) BEING CLEAR CO). IF THE 
CONTENTS OF TSSR ARE NOT AS EXPECTED. AN EHROR REPORT IS ISSUED 
LISTING THE EXPECTED DATA. ACTUAL OATA. A!*) THE DISCREPANCIES. 
THE ERROR REPORT ANALYZES THE TSSR CONTENTS ANO DISCERNS AND 
REPORTS ONE OF THREE POSSIBILITIES} 

1* TSSR CONTENTS ARE AMOIGUOUS (ANY OF BITS li-14 ARE SET. 
OR STATES OF SSR ANO SC BITS DO NOT CORRESPOND TO THE 
APPARENT ERROR COOE IN BIT'i 0-5): INDICATES THAT THE 
TSSR CONTENT CANNOT BE TRUSTED. INOICATES A 
CATASTROPHIC CONTROLLER MALFUNCTION. THIS IS A FATAL 
ERROR (EXECUTION IS ABORTED). FIELD ACTION WOULD BE TO 
REPLACE THE M7455. IF YHE M7455 ITSELF IS BEING 
DEBUGGED. THE PROGRAM SHOULD BE RESTARTED WITH LOOP ON 
ERROR ENABLED IN ORDEP TO PROBE FOR THE PROBLEM. 

2. SSR • 0. ?C • AND <HE ERROR CODE IN BITS 0-5 IS IN 
THE RANGE 17-13: THIS IS A FATAL ERROR. THE ERROR 
COOE IS DECOOED ANT THE APPROPRIATE DESCRIPTION GIVEN, 
INDICATES THAT A ?£RIOUS PROBLEM EXISTS. 

TEST Z\ WRAP DATA - HIGH BYTE 

THIS TEST VERIFIES OPERATION OF : 



1. PART OF THE PDP-11 BUS INTERFACE SECTION OK THE M7455 
MODULE* PART OF THE INPUT FILE I T5QB HIGH QYTE) t PART 



USER HOCUMENTATION 



C2 
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SEQ 015 



2, 



OF THE OUTPUT FILE (TSSR HIGH BYTE ANO TSBA, BOTH 
BYTES), PART OF THE DC005 TRANSCEIVER CIRCUITS (ADDRESS 
DECODER, BDAL DRIVERS. HIGH BYTE OF INTERNAL DAL BUS 
DRIVERS), AND BASIC PROGRAMMED I/O CONTROL SEQUENCES 
ANO '.OGICi 

PART OF 2901 MICROPROCESSOR ELEMENTS (Q -REGISTER, 
REGISTER 0. ROTATE AND NEGATE FUNCTIONS 



3. Y AND SOURCE BUSES j 

4. BASIC MICROPROGRAM SEQUENCES. 



THE PROGRAM WRITES A TEST DATA BYTE INTO THE HIGH BYTE OF TSDB, 
WAITS FOR THE SSR BIT IN TSSR TO SET, THEN CHECKS THE CONTENTS 
OF BOTH TSBA ANO TSSR. THE MOOULE IS FUNCTIONING CORRECTL> IF 
DATA WRITTEN APPEARS IN BOTH BYTES OF TSBA ANO THE 7INAL CONTENT 
OF TSSR IS CORRECT (SAME AS AFTER INITIALIZATION EXCEPT FOR BITS 
8 AND 9. WHICH SHOULD CONTAIN BITS 8 ANO 9 OT THE DATA PATTERN 
WRITTEN. AN ERROR IS REPOWTEO ANO A DESCRIPTIVE ANALYS.\S GIVEN 
IF A DISCRFPANCY IN TSBA OR TSSR IS DETECTED. THE ANALYSIS 
LISTS LIKELY FAULTY CANDIDATES FROM THF LOGIC ELEMENTS LISTED 
ABOVE. THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA 
BYTES CO-37? OCTAL), 

TEST 3{ WRAP DATA - LOW BYTE 

THIS TEST FURTHER VERIFIES OPERATION OF MANY OF THE SAME 
ELEMENTS TESTED IN TEST 2, ANO ADDITIONALLY VERIFIES! 

i. LOW BYTE OF THE TSD6 INPUT FILE REGISTER, 

2. LOW BYTE OF INTERNAL DAL BUS DRIVERS ON Th5 DC005 
TRANSCEIVER CIRCUITS, 

3. BASIC FUNCTIONING OF PARTS OF THE RAM. 



THE PROGRAM WRITES A TEST DATA BYTE INTO THE LOW BYTE OF TSOB, 
WAITS FOR THE SSR BIT IN TSSR TO SFT, THEN CHECKS THE CONTENTS 
OF BOTH TSBA ANO .SSR. 1HE MOOULE IS FLNCTIONING CUTCECTLv IF 
DATA WRITTEN APPEARS IN BOTH BYTES OF TSbA ANO THE FIN/ L CuNTENT 
OF TSSft TS CORRECT (SAME AS AFTER INITIALISATION EXCEPT FOR OITS 
8 ANO 9. WHICH SHOLT.D CON IAIN BiTS 8 ANT 9 OF THE DATA PATTERN 
WRITTEN, AN ERROR IS REPORTED ANO A DESCRIPTIVE ANALYSIS GIVEN 
IF A DISCREPANCY IN TSBA OR TSSR It DETECTEO. THE ANALYSIS 
LISTS LIKELY FAULTY CANDIDATES FROM T>€ LOGIC ELEMENTS -ISTfcO 
ABOVE. THE TEST IS REPEATED FOR ALL COMBINATIONS QF TEST OAT A 
BYTES (C 377 OCTAL). 



TEST A i RAM TEST 



USER DOCUMENTATION 



D2 
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SEQ 016 



THIS TEST VERIFIES THAT ALL LOCATIONS OF THE RAM ON THE M7455 
CAN PROPERLY STORE ANO READ FjACK ALL DATA PATTERNS, ANO THAT 
EACH RAM LOCATION IS UNIQUELY ADDRESSED CLE., THAT ONE AND ONLY 
ONE LOCATION IS ACCESSED BY ANY PARTICULAR ADDRESS). THE 
BYPRODUCT OF THESE TESTS IS A VERIFICATION OF TWO REGISTERS IN 
THE 2901 AND THE CAPABLITY OF THE 2Y01 TO CORRECTLY PERFORM AN 
ADD. 

TEST 5; SECOND INITIALIZATION TEST 

THIS TEST VERIFIES THE SAME ELEMENTS AS DID INITIALIZATION TEST 
91 ANO ALSO CHECKH THAT CERTAIN PARTS OF RAM IS CLEARED TO ZERO 
AND THAT 2901 REGISTERS 10 ANO U ARE ALSO CLEARED TO ZERO. 
THIS IS A CONFIDENCE CHECK OF A PART OF THE SELF -TEST SEQUENCE 
(I.E.. THAT IT IS REALLY BEING EXECUTED). FOR EACH OF TWO 
SUBTESTS CO?*: FOR INITIALIZING VIA A PUS INIT, THE OTHER FOR 
INITIALIZING BY WRITING INTO THE TSSR), THE FOLLOWING SEQUENCE 
IS PERFORMED: 

1. EACH RAM LOCATION AND 2901 REGISTERS 10 ANO 11 ARE SET 
TO ALL 1»S BY USING WRITES INTO THE TSDB REGISTER (LOW 
BYTE ANO MAINTENANCE MODE WORD WRITES). 

2. THE CONTROLLER IS INITIALIZED ANO THE VARIOUS CHECKS ON 
THE TSSR DESCRIBED IN INITIALIZATION TEST 01 ARE 
PERFORMED. 

3. #X'S (377 OCTAL) ARE WRITTEN INTO THE LOW BYTE OF TSDB, 
WHICH SHOULD CAUSE RAM LOCATION TO BE WRITTEN TO ALL 
1'S SINCE 2901 REGISTERS 10 ANO 11, SPECIFYING THE RAM 
ADDRESS. SHOULD BE 0. RAM LOCATION IS VERIFIED BY 
WRITING A WORD OF ZEROS INTO THf. TSDB, THE RESULTING 
LOU BYTF OF TSBA SHOULD CONTAIN ALL l'S. 

4. THE ENTIRE RAM IS SCANNED. LOCATION SHOULD CONTAIN 
ALL l'S ANO THE REMAINING LOCATIONS. EXCEPT FOR THE 
MESSAGE BUFFER IMAGE AREA. SHOULD CONTAIN 0. 
DISCREPANCIES ARE REPORTED. AN ERROR AT THIS POINT IS 
*OST LIKELY DUE TO A ROM. PIPELINE OR SEQUENCER PROBLEM 
C« A TIMING PROBLEM. 



VfcST 6? COMMANO REJECT 

THIS TESI VERIFIES THAT ALL COMMANOS OTHER THAN WRITE 
CHARACTERISTICS ArfE REJECTED DUE TO THE NEED BUFFER ADDRESS 
(NBA) 6i\' BEING SET IN TSSR, ANO THAT THE TSBA ANO TSSR 
REGISTERS ARE. L£FT IN THE PROPER STATE AFTER EACH COMMANO IS 
REJECTEO. TH:'5 TEST CHECKS MICROPROCESSOR SEQUENCING, BASIC 
COMMAND OECOD/.*G ANO DATI DMA HANDLING. THIS TEST CONTAINS TWO 
SUBTESTS: SUBTEST 1 SEQUENCES THROUGH ALL COMMAND WORDS (OTHER 
THAN WRIT£ CHARACTERISTICS) WITH THE INTERRUPT ENABLE (IE) BIT 
CLEAR AND VERIFIES THAT AN INTERRUPT IS NOT GENERATED BY THE 



USER DOCUMENTATION 



F2 
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SEQ 018 



AND THE REGISTER MODIFICATION REFUSED (RMR) LOGIC. 



TEST 11; NON-TAPE MOTION COMMANDS 

THIS TEST VERIFIES PROPER OPERATION OF THE INITIALIZE 
COMMAND. TWO SL*TESTS ARE USED, THE FIRST VERIFIES THAT 
THE COMMAND RUNS TO COMPLETION AND STORES A VALID 
MESSAGE PACKET. THE SECOND VERIFIES THAT NON-ZERO 
VALUES IN THE COMMAND MODE FIELD CAUSES COMMAND REJECT, 



7.0 MAINTENANCE HISTORY 



REVISION A - MARCH 1982 






USER DOCUMENTATION 
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G2 



SEQ 019 



2 






3 






4 






b 


000000 




6 






12 






13 


000000 




14 






15 






21 






22 




002000' 


23 






24 


002000 




^r 


002000 




c. -> 

26 






27 






26 






29 






30 






31 






32 


002000 




33 


002000 
002000 






002000 


103 




002001 


132 




002002 


124 




002003 


123 




002004 


101 




002005 


000 




002006 


000 




002007 


000 




002010 






002010 


101 




002011 






0020H 


060 




002C12 






002012 


000000 




002014 






002014 


001217 




002016 






002C16 


045444' 




002020 






002020 


045576' 




002022 






002022 


002 15V 




002024 






002024 


002164' 




002026 






002026 


045672' 




002030 






002030 


000000 




002032 






002032 


ooocoo 




002034 






QQ3Q34 


OOQQOO 



.TITLE TSV2 - PROGRAM HEADER 
.SBTTL PROGRAM HEADER 
.PSECT ABS 



; 



TSV2:; 



i ♦♦ 



.MCALL SVC 
SVC 

.ENABLE LC 
.NLIST BEX.CND 
.ENABL AMA 
.-.♦2000 
. -2000 
BGNMOD TSV2 



t INITIALIZE SUPERVISOR MACROS 



i THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
j THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 



LJNAME; 



POINTER BGNSW , BGNSF T . BGNAU , BGNDU , BGNRPT 
HEADER CZTSA^A, 0,655. ,0 

j DIAGNOSTIC NAME 





.ASCII 


/c/ 




.ASCII 


/!/ 




.ASCII 


/T/ 




.ASCII 


/s/ 




.ASCII 


/A/ 




.BYTE 







.BYTE 







.BYTE 





LJREV:: 








.ASCII 


/A/ 


LSOEPO: 








'.ASCII 


/O/ 


LtUNIT: 








* .WORD 





LITIML: 








'.WORD 


655. 


L$HPCP; 








* . WORD 


L*HARD 


L*SPCP: 








* .WORD 


L$S0FT 


LtHPTP: 








* . WORO 


L$HW 


LISPTP: 








' . WORD 


L$SW 


L$LADP: 








* .WORD 


L*LAST 


LVSTA:: 








.WORD 





LICO: : 








.WORD 





L<DTYPj 


« 






.WORD 






jREVISION LEVEL 
JO 

^NUMBER OF UNITS 
{LONGEST TEST TIME 
iPOINTER TO H.W, QUES. 
{POINTER TO S.W. QUES. 
jPTR, TO DEF. H.W. PTABLE 
|PT«. TO S.W. PTABLE 
jDIAG, END ADDRESS 
{RESERVED FOR APT STATS 

jDIAGNOSTIC TYPE 



H2 



TSV2 



- PROGRAM 


HEADER MACRO 


MU13 07-FEB 64 


10? 58 






AM HEADER 












002036 




LIAPT: , 






jAPT EXPANSION 


002036 


OOCOOO 




.WORD 







002040 




LIDTPj « 






jPTR. TO DISPATCH TABLE 


002040 


002124' 




.WORD 


L IDISPATCH 


002042 




LIPRIO 






(DIAGNOSTIC RUN PRIORITY 


002042 


000000 




' .WORD 







002044 




LIENVI- 






(FLAGS DESCRIBE HOW IT WAS SETUP 


002044 


000000 




* . WORD 







002046 




LIEXP1 






j EXPANSION WORD 


002046 


000000 




' . WORD 







002050 




LIMREV 






iSVC R' : V AND EDIT # 


002050 


003 




* .BYTE 


CIREVISIQN 


002051 


003 




.BYTE 


CIEDIT 




002052 




LIEF:: 






IDIAG, EVENT FLAGS 


002052 


000000 




.WORD 







002054 


000000 




MPPO 







002056 




LI^PC: 








002056 


000000 




.WORD 







002060 




L6DEVP 






l POINTER TO DEVICE TYPE LIST 


002060 


003400' 




' .WORD 


LIDVTYP 




002062 




LtREPP 






jPTR. TO REPORT CODE 


002062 


022434' 




' . WORD 


LIRPT 




002064 




LIEXP4 








002064 


000000 




* .WORD 







002066 




L.IEXPS 








002066 


000000 




* .WORD 







002070 




LIAUT- 






jPTR. TO ADD UNIT CODE 


002070 


022122' 




.WORD 


LIAU 




002072 




I.IDIU: 






iPTR. TO DROP UNIT CODE 


002072 


022220' 




.WORD 


LIDU 




002074 




LILUN: 






iLUN FOR EXERCISERS TO FILL 


002074 


000000 




.WORD 







002076 




LIDESP 


; 




{POINTER TO DIAG. DESCRIPTION 


002076 


003406' 




.WORD 


LIDESC 




002100 




LI LOAD 


j * 




(GENERATE SPECIAL AUTOLOAD EMT 


002100 


104035 




EMT 


EILOAD 




002102 




LIETP: 






jPOINTER TO ERRTBL 


002102 


000000 




.WORD 







002104 




LI TCP: 






jPTR TO INIT CODE 


002104 


021326' 




. WORD 


LIINll 




002106 




LICCP: 






jPTR. TO CLEAN-UP CODE 


002106 


022406* 




.WORD 


LICLEAN 




002110 




LIACP: 






iPTR. TO AUTO CODE 


002110 


022326' 




.WORD 


LIAUTO 




002112 




LIPRT: 






iPTR. TO PROTECT TABLE 


002112 


021316' 




.WORD 


LIPROT 




002114 




LITEST 


; 




1 TEST NUMBER 


002114 


000000 




.WORD 







002116 




LIDLY: 






j DELAY COUNT 


002116 


000000 




.WORD 







002120 




umim 


» * 




$PTR. TO HIGH MfeM 


002 VdQ 
34 
35 


QQOQOQ 




.WORD 







36 
3 7 






♦SBTTL 


DISPATCH TABLE 


3S 













SEQ 020 



TSV2 - PROGRAM HEADER 


MACRO MU13 


07-FEB-84 10:58 


SOFTWARE P- TABLE 






76 C02172 000310 




GERRMAX; ; 


77 002174 




ENOSW 


002174 




L10001; 


78 






79 002174 




ENDMO 


80 






81 






84 






85 







J2 

SEQ 022 
■WORD 200. j GLOBAL (PER UNIT) ERROR LIMIT 



TSV3 - GLOBAL AREAS 
SOFTWARE P-TABLE 

7 

8 
13 
19 

20 002174 
002174 
21 
22 
23 
24 
25 
26 
27 
26 
29 
33 002174 



l<2 



100000 
040000 
020000 
OlOOOO 
004000 
002000 
OOIOOO 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

OOIOOO 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
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SEQ 023 



TSV3;: 



.TITiE TSV3 - GLOBAL AREAS 
.SBTTL GLOBAL EQUATES SECTION 



BGNMOD TSV3 



.SBTTL GLOBAL EQUATES SECTION 



t ♦ 



j THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
5 ARE USED IN MORE THAN ONE TEST, 



EQUALS 



j BIT DIFINITI 


BIT15" 


■ 100000 


BIT14-- 


- 40000 


BIT13-- 


• 20000 


BIT12-- 


■ 10000 


BIT11-- 


■ 4000 


BIT1C-- 


• 2000 


BIT09-* 


• 1000 


BIT08-- 


■ 400 


BIT07-- 


- 200 


BIT06-- 


• 100 


BIT05-' 


■ 40 


BIT04-- 


■ 20 


BIT03-« 


■ 10 


3IT02" 


• 4 


BI101-' 


• 2 


BITOO-- 


* 1 


BIT9-- 


BIT09 


BIT8-- 


BIT08 


BIT7-- 


BIT07 


BIT6-- 


BIT06 


BIT5-- 


BIT05 


BIT4-« 


BIT04 


HIT3-- 


BIT03 


BTT2-- 


BIT02 


BIT1-- 


BIT01 


BITO-- 


BITOO 



l GET STANDARD EQUATES 



000040 
000037 
000036 
000035 
000034 



j EVENT FLAG DEFINITIONS 

; EF32?EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 



EF.START-- 32. 

EF. RESTART*. 31. 

EF. CONTINUE-- 30. 

EF.NEW-- 29. 

EF.PWR-- 28. 
i 
J 



START COMMAND UAS ISSUED 
RESTART COMMAND WAS ISSUED 
CONTINUE COMMAND UAS ISSUFD 
A NEU PASS HAS BEEN STARTGD 
A POWER -FAIL/POWER -UP OCCURRED 



TSV3 - GLOBAL AREAS 
GLOBAL EQUATES SECTION 



L2 
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SEO 024 



j PRIORITY LEVEL DEFINITIONS 



34 

35 002174 



000340 
000300 
000240 
000200 
000140 
000100 
000040 
000000 



000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 



177572 
177574 
177576 
172516 



PRI07-- 340 


PRI06-- 300 


PRI05-- 240 


PRI04-- 200 


PRI03-- 140 


PRI02-- 100 


PRI01-- 40 


PRI00-- 


^OPERATOR FLAG BITS 


EVL" 4 


LOT-' 


10 


ADR-' 


20 


IDU-' 


40 


ISR-' 


100 


UAM-> 


200 


B0E-" 


400 


PNT- 


1000 


PRI- 


2000 


IXE-' 


4000 


IBE-« 


10000 


IER-' 


20000 


L0E-- 


40000 


HOE-- 100000 


KTH 


.SBTTL MEMORY MANAGEMENT DEFINITIONS 


j*KTll VECTOR ADDRESS 


MMVEC- 250 


I*KT11 STATUS REGISTER ADDRESSES 


SRO- 177*72 


SRI- 177574 


SR2- 177576 


SR3- 172516 


.IF NB 


;*USER "I" PAGE DESCRIPTOR REGISTERS 


UIPDRO- 177600 


UIPDR1- 177602 


UIPDR2- 177604 


UIPDR3- 177606 


UIPDR4- 177610 


UIPDR5- 177612 


UIPDR6- 177614 


UIPDR7- 177616 


.IF NB 


■♦USER "D" PAGE DESCRIPTOR REGISTQRS 


UOPDRO- 177620 


UDPDR1- 17 7622 


U0PDR2- 177624 


U0PDR T >- 177626 


U0PDR4- 17 7630 


UDPDR5- 177632 


U0PDR6- 177634 


UDPDR7* 177636 



{DEFINE MEMORY MANAGEMENT REGISTERS 



TSVS Q OJAL AREAS MACRO 
MEMORT MANAGEMENT DEFINITIONS 



M1113 U7-FEB-84 10 $58 



M2 



SEQ 025 



.ENOC 

{♦USER "I" PAGE ADDRESS REGISTERS 

UIPARO- 177640 

UIPAR1- 177642 

UIPAR2- 177644 

UIPAR3- 177646 

UIPAR4- 177650 

UIPAR5- 177652 

UIPAR6- 177654 

UIPAR7- 177656 

.IF NB 

{♦USER "[)" PAGE ADDRESS REGISTERS 

UDPARO- 1//660 

U0PAR1- 177662 

UDPAR2- 177664 

U0PAR3- 177666 

U0PAH4- 177670 

UDPAR5- 177672 

UDPAR6- 177674 

UDPAR7- 177676 

.ENOC 

.ENOC 

.IF N6 

{♦SUPERVISOR "I" PAGE DESCRIPTOR REGISTERS 

SIPDRO- 172200 

SIPDR1- 172202 

SIPDR2- 172204 

SIPDR3- 172206 

SIPHR4- 172210 

GiPDRS" 172212 

SIPDR6- 172214 

SIPDR7- 172216 

.IF N6 

{♦SUPERVISOR "D" PAGE DESCRIPTOR REGISTERS 

SD D PRO- 172220 

SD> 0R1« 172222 

SDPDR2- 172224 



SDPDR3 
SDPDR4 
SDPDR5 



172226 
172230 
172232 



SDPDR6- 172234 

SDPDR7- 172236 

.ENDC 

{♦SUPERVISOR "I" PAGE ADDRESS REGISTERS 

SIPARO- 172240 

SIPAR1- 172242 

SIPAR2- 172244 

SIPAR3- 172246 

SIPAR4* 172250 

SIPAR5- 172252 

SIPAR6- 172254 

SIPAR7- 172256 

.IF NB 

{♦SUPERVISOR "0" PAGE ADDRESS REGISTERS 

SDPARO- 172260 

SDPAR1* 172262 

SDPAR2* 172264 
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SEQ 026 



39 
•\Q 
41 

42 
43 
44 
45 
46 
47 



172300 
17230,? 
172304 
172306 
172310 
172312 
172314 
172316 



172340 
172342 
172344 
172346 
172350 
172352 
1/2354 
172356 



SDPAR3- 


172266 


5DPAR4- 


172270 


SDPAR5- 


172272 


SDPAR6- 


172274 


SDPAR7- 


172276 


,ENDC 




.ENDC 




{♦KERNEL "I" PAGE DESCRIPTOR REGISTERS 


KIPDRO- 


172300 


KIPDR1- 


172302 


KIPDR2- 


172304 


KIPDR3- 


172306 


KIPDR4- 


172310 


KIPDR5- 


172312 


KIPDR6- 


172314 


KIPDR7- 


172316 


.IF NB 




{♦KERNEL "D" PAGE 


DESCRIPTOR REGISTERS 


KDPDRO- 


172320 


KDPDR1- 


172322 


KDPDR2- 


172324 


KDPDR3" 


172326 


KDPDR4- 


172330 


KDPDR5- 


172332 


KDPDR6- 


172334 


KDPDR7- 


172336 


.ENOC 




;*KERNr.L "I" PAGE ADDRESS REGISTERS 


KIPARO« 


172340 


KIPAR1- 


172342 


KIHAR2- 


172344 


K1PAR3- 


172346 


KIPAR4- 


172350 


KIPAR5- 


172352 


KIPAR6- 


172354 


KIPAR7- 


172356 


.IF NB 




{♦KERNEL 'D" PAGE ADDRESS REGISTERS 


KDPARO- 


172360 


KDPAR1- 


172362 


KDPAR2- 


172364 


KDPAR3- 


172366 


KDPMR4* 


172370 


KDPAR5- 


-.72372 


KDPAR6- 


172374 


KDPAR7- 


172376 


.ENDC 





000004 



.SBTTL TSU05 REGISTER AND PACKET DEFINITIONS 
\ SOME GENERAL EQUATES, 
ERRVEC»= 4 j POINTER TO ERROR VECTOR FOR Bb. 



OUT, 



B3 
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SEQ 027 



48 


000060 


49 


177560 


50 


177562 


51 


177520 


52 




55 




54 




55 




56 




57 


100000 


58 


040000 


59 


020000 


60 


010000 


61 


004000 


62 


002000 


63 


001400 


•54 


000200 


65 


000100 


66 


000060 


67 


000016 


68 




60 




70 




71 




72 




75 




74 




75 




76 




77 


100000 


78 


040000 


79 


C20000 


80 


010000 


81 


004000 


82 


002000 


83 


001000 


84 


000400 


85 


000200 


86 


000100 


87 


000040 


88 


000020 


89 


000010 


90 


000004 


91 


0O0002 


92 


000001 


95 




94 




95 




96 




97 




98 




99 


100000 


100 


040000 


101 


020000 


102 


017375 


103 


000400 


104 


000QQ2 



TTIVEC-- 


60 


TTICSR-- 


177560 


TTIBFR-- 


177562 


BDVPCR-- 


177520 



I INTERRUPT VECTOR FOR CONSOLE INPUT 
I 6US ADDRESS OF CONSOLE INPUT 
l CONSOLE INPUT DATA BUFFER 
I BDV11 PAGE CONTROL REGISTER 



iBIT DEFINITIONS FOR TSSR REGISTER 



SC- 

BIE- 

SCE- 

RMR- 

NXM- 

N8A- 

HIADDR- 

SSR- 

OFL- 

FATERR- 

TERCLS- 



BIT15 

BIT14 

8IT13 

BIT12 

BIT11 

BIT10 

BIT9JBIT8 

BIT7 

BIT6 

8IT4JBIT5 

BIT3»BIT2!BIT1 



iSPECIAL CONOITION 

»BUS INTERFACE ERROR 

l SANITY CHECK ERROR 

iMOOIFICATION REFUSED 

|N0NEXISTANT MEMORY ERROR 

I NEED BUFFER ADDRESS 

lEXTENOED ADDRESS BITS 

iSUB SYSTEM READY 

jOFF LINE BIT 

sFATAL TERMINATION ERROR CODES 

{TERMINATION CODES 



BIT DEFINITIONS 
(XSTO) 



xsot;ik 

XSORLS 
XSOLET 
XSORLL 
XSOULE 
XSONEF 

XSOILC 
XSOILA 
XSOMOT 
XSOONL 
XSOIE- 
XSOVCK 
XSOPED 
XSOULK 
XS080T 
XSOEOT 



BIT15 

BIT14 

BIU3 

BIT12 

BIT11 

BITIO 

BIT9 

BIT8 

BIT7 

BIT6 

BIT5 

BIT4 

BIT3 

BIT2 

BIT1 

BITO 



iBIT DEFINITIONS 
iCXSTl) 

Xl.OLT 
XI. SPARE 
X I . COR 
Xl.MBZ 
Xl.RBP 

xi»unc 



FOR EXTENDED STATUS REGISTER 



I TAPE MARK DETECTED 

jRECORO LENGTH SHORT 

I LOGICAL END OF TAPE 

ifiECORD LENGTH LONG 

I WRITE LOCK ERROR 

iNON EXECUTABLE FUNCTION 

I ILLEGAL COMMAND 

» ILLEGAL ADDRESS 

i TAPE IN MOTION 

I TRANSPORT ON LINE 

i INTERRUPT ENABLE 

i VOLUME CHECK BIT 

iPHASE ENCODED DRIVE 

iWRITE LOCKED 

iBEGIWING Of" TAPE 

I END OF TAPE 



FOR EXTENDED STATUS REGISTER 1 



- 3IT15 iOATA LATE 

• BIT14 ,NOT USED 

• BIT13 iCORRECTABLE DATA ERROR 

■ BIT12fElITlltaXT10»BIT9.BlT7.BIT6.BIT5»BIT4»BIT?»BlTa^8ITO lALUA'S Q 

- BITS |READ BUS PARITY ERROR 

• BIT! (UNCORRECTABLE DATA OR HARD ERROR 
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c* 



3 



SEQ 028 



105 




106 




107 




108 




109 




110 


100000 


111 


040000 


112 


035400 


113 


002000 


114 


0OO200 


115 


000100 


116 


00007 7 


117 


000007 


118 




119 




120 




121 




122 




123 


177400 


124 


000200 


125 


000100 


126 


000040 


127 


000020 


128 


000010 


129 


000006 


130 


000001 


131 




132 




133 




134 




135 




136 


100000 


137 


040000 


138 


020000 


139 


017400 


140 


000377 


141 




142 




143 




144 




145 




146 




147 




148 




149 


000006 


150 


000006 


151 




152 




153 




154 




155 




156 




157 




158 


000000 


159 


000000 


160 


000001 


Ifci 


QQQQ01 



t * 



iBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
i(XST2) 



BIT15 iOPERATION IN PFIOGRESS (TAPE MOVING) 

BIT 14 i RAM CHECKSUM ERROR 

BIT13*BITl2*BITil*BIT9*BIT8 jNOT USED BY TSt/5 CALWAYS-O) 
BIT10 iWRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 

BIT7 i IF WRITE CHAR CMO THEN " EXTENDED FEATURES ENABLEO 

BIT6 i IF WRITE CHAR CMO THEN ■ BUFFERING ENABLED 

000077 | IF WRITE CHAR CMO THEN ■ MICROCODE REVISION LEVEL 

BIT2*BIT1*BIT0 i IF GET STATUS THEN - CURRENTLY SELECTED UNIT NO. 



EXTENDED STATUS REGISTER 3 



X2.0PM 

X2.RCE 

X2. SPARE 

X2.WCF 

X2.EXTF 

X2.BUFE 

X2.REV 

X2.UNXT 

»BIT DEFINITIONS FOR 
ICXST3) 

i - 

X3.MDE - 177400 

X3. SPARE- BIT7 

X3.0PI - BIT6 

X3,REV - BIT5 

X3.TRF • BIT4 

X3.DCK - BIT3 

X3.MBZ -BIT2.8IT1 

X3.RIB ■ BITO 

»BIT DEFINITIONS FOR f-XTENOED STATUS REGISTER 4 
i(XST4) 



iMICRO-DIAGNOSTIC ERROR CODE 

iNOT USED BY TSU05 

iOPERATION INCOMPLETE 

l REVERSE 

i TRANSPORT RESPONSE FAILURE 

I DENSITY CHECK 

I NOT USED ALWAYS 

iREVERSE INTO BOT 



X4.HSP 
X4.RCE 
X4.TSM 
X4.MB2 
X4.WRC 



BIT15 |HIGH SPEED 

BIT14 iRETRY COUNT EXCEEDED 

BIT13 i TRANSPORT SPECIAL MODE 

BIT12*BIT'U*BIT10*BIT9»BIT8 iNOT USED ALWAYS 

000377 iWRITE RETRY COUNT FIELD 



TSSR TERMINATION CODES (BIT 0-2) 



TSREJ- 3*2 
UNREC- 6 



DEVICE REGISTER OFFSETS 



iCOMMANO REJECTED 
(UNRECOVERABLE ERROR 



TSBA-- 
T50B-- 
TSBAH-- 1 
TS0BH»» X 



iTSOB/TSBA REGISTER 
iTSOB/TSBA REGISTER HIGH BtT£ 
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D3 



SEQ 029 



162 


000002 


163 


000003 


164 




165 




166 




167 




168 


000003 


.69 




170 




171 




1*2 




173 


000017 


17-4 


000013 


175 


000012 


176 


000011 


177 


000010 


178 


000006 


179 


000005 


180 


000004 


181 


000001 


182 




183 




184 




185 




186 


100000 


187 


040000 


188 


020000 


189 


010000 


190 


007400 


191 


000200 


192 


000140 


193 


000037 


194 




195 




196 




197 


000000 


198 


0OO400 


199 


001000 


200 


002000 


201 


002400 


202 




203 




204 




205 




206 


000167 


207 


000200 


208 


000201 


209 


000210 


210 


000215 


211 


000234 


212 




213 




214 




215 




216 




217 




218 


000006 



iTSSR REGISTER 

jTSSR REGISTER HIGH BYTE 



TSSR-- 2 
TSSRH-- 3 

» ♦ 

I TSDB ADDRESS BIT DEFINITIONS 

- BIT1+BIT0 iADDRESS BITS 17:16 ARE IN 1:0 



A1716 



l ♦ 

I COMMAND DEFINITIONS 

P.GETSTAT - 17 

P.INIT - 13 

P. CONTROL • 12 

P. FORMAT - 11 

P. POSITION - 10 

P.WRTSUB - 6 

P. WRITE - 5 

P.WRTCHAR - 4 

P. READ - 1 

I ♦ 

» COMMANO PACKET HEADER WORD BIT DEFINITIONS 

J - 



jGET STATUS 

I INITIALIZE 

I CONTROL COMMANDS 

I FORMAT 

tPOSITION 

iSUBSYSTEM WRITE 

IWRITE 

jWRITE CHARACTERISTICS 

I READ 



P.ACK 
P.CVC 
P.OPP 
P.SWB 

p.mooe 

P. IE 

P.FMT- 
P.CMO 



BIT15 
BIT14 
BIT13 
BIT12 



BIT65BIT5 

- 37 



I BUFFER AVAIL FOR CONTROLLER 
I CLEAR VOLUME CHECK 
iREVERSE SEQUENCE OF DATA BITS 
»SWAP BYTES IN ■— 

__..._ MODE FIELD 

. . ENABLE 

iPACKET HEADER TYPE (ALWAYS-O) 
B MAJOR COMMAND FIELD 



• BIT12 tSWAP BYTES IN MEMORY 

- BIT11!BIT10!BIT9!BIT8 iEXTENDED COMMAND 

- BIT7 i INTERRUPT ENABLE 
TTA'RTTS iPArKFT HFAftFR TYPP CAlUA' 



I ♦ 



\ CONTROL COMMANO MODE CODES 



I - 



PC. RELEASE 
PC.REWINO 
PC.NOOP 
PC.IEREW 
PC .ERASE 



• 0*256. 

• 1*256. 

- 2*256. 

- 4*256. 

- 5*256. 



iRELEASE BUFFER 

i REWIND 

iNO-OP 

iREWlNO IMMEDIATE INTERRUP 

I SECURITY ERASE 



I CONTROLLER RAM DEFINITIONS 
I - 



RMCHBEG - 167 

RMCHENO - 200 

RMPKTBEG- 201 

RMPKTENO- 210 

RMMSGBEG- 215 

RMMSGENO- 234 



iCHARACTERlSTICS 10 DATA BEGIN RAM ADDRESS 
iCHARACTERISTICS 10 DATA ENO RAM AODRESS 
I COMMAND PACKET BEGIN RAM ADORESS 
jCOMMAND PACKET END RAM ADDRESS 
iMESSAGE BLTFER BEGIN RAM ADDRESS 
iMESSAGE BUFFER ENO RAM ADDRESS 



REGISTER DEFINITIONS IN THE MESSAGE BUFFER 



XSTO 



lEXTENOED STATUS REGISTER (WORD 4) 



TSV3 - GLOBAL AREAS MACRO MU13 07-FEB-84 10:58 
TSU05 REGISTER ANO PACKET DEFINITIONS 



F3 



SEQ 031 



276 




277 




278 




279 


000200 


280 


000100 


281 


000040 


282 


000020 


283 


000010 


284 


000004 


285 


000002 


286 


000001 


287 




288 




289 




290 




291 




292 


000200 


293 


000020 


294 


000010 


295 


000006 


296 


000001 


297 




298 




299 




300 


000000 


301 


000002 


302 


000004 


303 


000006 


304 




305 




306 




307 


0O0200 


308 


000100 


309 


000040 


310 


000020 


311 




312 




313 




314 




315 


0O0200 


316 


000100 


317 


000040 


318 


000020 


319 


000010 


320 


000004 


321 


000003 


322 


100000 


323 


040000 


324 


020000 


325 


010000 


326 


004000 


727 


002000 


328 


001000 


329 


000400 


330 


000200 


331 


000100 


332 


000040 



jBSELl CODES FOR WRITE FORMAT 



WF.IHISP 


■ BIT7 


WF.IWRT 


• BIT6 


WF.IREV 


- 6IT5 


WF.IWFM 


- BIT4 


WF.IEDIT 


- BIT3 


WF.IERASE 


- BIT2 


WF.I3RESV 


- BIT1 


WF.I4RESV 


- BITO 



jIHISP - HIGH SPEED 

iIWfiT - WRITE 

iIREV - REVERSE 

jIWFM - WRITE FILE MARK 

tlfe'OIT - EOIT 

tIEAASE - ERASE 

|IRESV3 - RESERVED 03 

IIRESV4 - RESERVED 04 



iBSELl CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 



MS. EXT 


■ BIT7 


MS.RSFIFO 


• BIT4 


MS.RSTAPE 


- BITS 


MS, ATTN 


- BIT2JBIT1 


MS.RSD 


• BITO 



i INVERT SENSE OF EXTENOED FEATURES SWITCH 
iRESET FIFO ANO INPUT PARITY ERRORR 
iRESET TAPE STATUS IN 2 FLIP-FLOPS 
lATTENTION TRIGGER FIELD 
jRESET TIMER A,B THEN DELAY TIMES IN SEL2 



I* 

I MS. ATTN SUBCODES 

t - 

MSA. NOP ■ 0*2 
MSA. VOL • 1*2 
MSA.NRAM- 2*2 
MSA.FRAM- 3*2 

i WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 



iNO-OP (NOTHING TRIGGERED) 
{SIMULATE ON-LINE/OFF-LINE TRANSITION 
jFORCE NON-FATAL RAM ERROR (FORCES ERRCOOE 
iFORCE FATAL RAM ERROR (CAUSES SCE TO SET) 



54) 



NP.IR 
NP.OUT 
NP.LOOP 
NP.UPP 

I READ STATUS 
i - 

S2.DIM 

S2.ILW 

S2.0UTHDY 

S2.INRDY 

S2.ATIMR 

S2.BTIMR 

S2.UN0EF 

Sl.PARIN 

S1.I2RESV 

S1.I1RESV 

Sl.IEOT 

Sl.IIOENT 

Sl.ICER 

Sl.IFMK 

Sl.IHF.R 

SO. I SPEED 

SO.IRDY 

SO.IONL 



BIT7 
BIT6 
BITS 
BIT4 



i INTERRUPT REQUEST (0-1 TRANSITION) 

I TAPE DATA DIRECTION OUT CO- IN) 

i ENABLE TRANSPORT LQOPBACK 

jWRITE CORRECT PARITY (SET-0 TO WRITE WttONG) 



MESSAGE BUFFER BIT DEFINITIONS 



BIT7 

BIT6 

BIT5 

BIT4 

BIT3 

BIT2 

BIT1.BIT0 

BIT15 

BIT14 

BIT13 

BIT12 

BITtl 

BIT10 

BIT9 

BIT8 

BIT7 

BIT6 

BITS 



WORD 09 BYTE 2 



(L^OEFINED) 
WORD 08 BYTE 



WORD 08 BYTE 



DATA IN MISS 
ILW H 
OUT HOY H 
IN RCY H 
TIMER A FLAG H 
TIMER B FLAG H 

PARIN M 
IRESV2 
T RESV1 
IEOT L 
IIOENT H 
ITER H 
IFMK H 
IHER H 
ISPEEO H 
IRDY L 
IONL L 
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G3 



SEQ 032 



333 
334 
335 
336 
537 
338 
339 
340 
341 
342 
343 
344 
345 
346 
34 7 
348 
349 
350 
351 
352 
353 
354 
355 
o56 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
36 7 
368 
369 
370 
371 
372 
373 
374 
375 
3 76 
377 
378 
3?9 
380 
381 
38? 
383 
384 
385 
386 
387 
388 
3W 



000020 
000010 
C00004 
000002 
000001 



170200 



SO.ILDP « BIT4 

SO.IDBY • BIT3 

SO.IRWO - BIT2 

SO.IFBY - BIT1 

SO.II'PT - BITO 

tUNIBUS MAP DEFLATIONS 

170200 



ILDP L 
IOBY L 
IRUO L 
IFBY L 
IFPT L 



MMRO 



.SBTTL SPECIAL MACROS AND OPDEF, 



J ♦ 

j SAVE GENERAL REGS 1 TO 5 



.MACRO SAVREG 
JSR R5,REGSAV 
.ENDM 

1 * 

; MACRO TO FORCE AN ERROR 

.MACRO FORCERROR TAG.NOTSSR 

.NLIST 

.IIF NOF LISTALL, .NLIST 

.LIST 

.IF B NOTSSR 

MOV TSSR(R5),R1 
.ENOC 

MOV FORCER. FORCER 
BNE TAG 
NLIST 

IIF NOF LISTALL, ,LIST 
LIST 
ENOM 



iRCAD TSSR 

iIS FORCER SET? (LEAVE C BIT ALONr) 
iBR IF YES 



MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 
WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 
SO TO FORCE ERRORS AND EXIT ON 1 ERROK SET 
FORCER TO 177777 
TO FORCE ERRORS ANO ITERATIONS SET FORCER TO 1, 

MACRO FORCEXIT TAG 

NLIST 

IIF NDF LISTALL. .NLIST 

LIST 

MOV FORCER .FQkCER 
BMI TAG 
.NLIST 

.IIF NQF LISTALL* .LIST 
.LIST 
.ENOM 
J* 



iIS FORCER NEGATIVE? 
iBR IF YES 



H3 
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SEQ 033 



390 
391 

392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
<*05 
406 
407 
408 
409 
410 
411 
412 
415 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
4 30 
431 
432 
433 
434 
4 35 
4 36 
437 
4 38 
439 
440 
441 

442 
443 
444 
445 
446 



000000 



002174 000000 



002176 
002200 
002202 
002204 
002206 
002210 
002212 
002214 
002216 
002220 
002222 



000000 
000000 
000000 

cooooo 

000224 

000200 
000000 
000000 
000000 
000000 
000000 



I MACRO TO INCREMENT ERROR COUNTS 

.MACRO NEXT.ERRNO 

.NLIST 

Ill.IIF NOF LISTALL, .NLIST 

ERRNO-ERRNOfl 
it J.IIF NDF LISTALL* .LIST 
.LIST 
.ENOM 

t ♦ 

{MACRO TO PERFORM XOR 

I - 



.MACRO 


XOR A,B 


MOV 


A.-CSP) 


BIC 


B.CSP) 


BIC 


A. 3 


BIS 


(SP)t.B 


.ENOM 




EN-0 




.SBTTL 


FORCER - F 



j INITIALIZE ERROR NUMBER 
- FORCE ERROR FLAG 



t THE FOLLOWING LOCATIONS MAY BE PATCHED Bf THE USER 
» TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 

J 



FORCER t{ 







} FORCE TYPE ALL HARD ERRORS OHE ONES CALLED 
; - BY THE MACRO "IFERROR") . AN ERROR NEED NOT - 
I - EXIST, JUST ASSUME AND TYPE THE MESSAGE. 



.SBTTL GLOBAL DATA SECTION 



j THE GLOBAL DATA SECTION CONTAINS DATA 
j IN MORE THAN ONE TEST. 



THAT ARE USED 



I THE FOLLOWING DATA ARE SE 
{SINGLE UNIT DEFAULTS (LIS 



EPRTSU: • 

UNITN: : 

QVP: : 

CSRADDR:: 

IVEC: t 

IPRI:: 

TSTCNT; 

LOOPCNT 

DEVCNT: 

FATFLG: 

INTRECV 



T FOR EACH UNIT AT INIT TIME. 
TED) ARE IN THE DEFAULT P -TABLE. 



.WORD 





.WORD 





.WORD 





.WORD 





.WORD 


224 


.WORD 


PR 


.WORD 





.WORD 





.WORD 





.WORD 





.WORD 






iPRINT SWITCH 
I UNIT UNDER TEST, 
|QUID< VERIFY FLAG. 
{AODRESS OF C^R FOR 
{INTERRUPT VECTOR 
104 {INTERRUPT 
{NUMBER OF 
{REMAINING 
{NUMBER OF 
I SET IF 
{SET IF 



CURRENT DEVICE 



PRIORI! t. 

TESTS RUK IN THIS PASS 

ITERATION COUNT FOR TEST 

DEVICE UNDER TEST 
FATAL ERROR IS DETECTED IN TEST 
TAPE INTERRUPT WAS RECEIVED 
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U 



3 



SEQ 03b 



504 


003020 


177773 


505 


003022 


177767 


506 


003024 


177757 


507 


003026 


17773 7 


508 


003030 


177677 


509 


003032 


177577 


510 


003034 


177377 


51.1 


003036 


176777 


512 


003040 


17577? 


513 


003042 


173777 


514 


003044 


167777 


515 


003046 


157777 


516 


003050 


137777 


517 


003052 


077777 


518 


003054 


125252 


519 


003056 


052525 


520 




003060' 


521 






522 






523 






524 






525 






526 






527 


003060 


000000 100000 


528 


003070 


000000 000000 


529 






530 






531 






53? 


003110 


OOOOOO 


533 






534 


003112 


OOOOCO 


535 






536 


003114 


OOOOOO 


537 


003116 


OOOOOO 


538 


003120 


OOOOOO 


539 


003122 


OOOOOO 


540 


003124 


OOOOOO 


541 


003126 


OOOOOO 


542 


003130 


OOOOOO 


54 3 






544 






545 


003132 


OOOOOO 


546 


003134 


OOOOOO 


547 


003136 


OOOOOO 


548 


003140 


rooooo 


549 


003142 


OOOOOO 


550 


0031*4 


OOOOOO 


551 


003146 


OOOOOO 


552 


003150 


002000 


553 


003152 


OOOOOO 


554 


0C3154 


OOOOCO 


555 


003156 


ocoooo 


^56 


00A160 


OOOOOO 


557 


003162 




558 


003162 


OOOOOO 


559 


003164 


OOOOOO 


560 


003166 


OOOOOO 



TBLEND' 



.WORD 


tCBIT2 


.WORD 


tCBITS 


.WORD 


tCBIT4 


.WORD 


tCBIT5 


.WORD 


tCBITo 


.WORD 


tCBIT7 


.WORD 


tCBIT8 


.WORD 


1-CBIT9 


.WORD 


tCBITIO 


.WORD 


tCPITll 


.WORD 


tCBITIZ 


.WORD 


tCBIT13 


.WORD 


tCBIT14 


.WORD 


tCBIT15 


.WORD 


125252 


.WORD 


052525 



j ALTERNATING ONES, ZEROS 

j ALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 



.SBTTL GLOBAL ENVIRONMENT STORAGE 

[STORAGE FOR DEVICE REGISTERS 

OOOOOO DUMMY: 0,100000.0,0 jDUMMY DEVICE REGISTERS... 
OOOOOO 0,0,0,0,0,0,0,0 

I... FOR MULTI-UNIT CHECKOUT. 



DUFLGs: 


.WORD 





NODEV : : 


.WORD 





TEMPI:: 


.WORD 





TEMP2:: 


.WORD 





XXCOMM: 


.WORD 





FREE: : 


.WORD 





FRESIZ: 


.WORD 





FREEHI: 


. WORD 




KTFLG:: 


.WORD 





K TENABLE:: .WORD 





NXMFLG: 


.WORD 





NXMLO:: 


.WORD 





NXMHI: : 


.WORD 





T23A: : 


.WORD 





T23B: : 


.WORD 





T3BFLG? 


. WORD 





PST32W; 


.WORD 


2<*Gu 


Sit LAG: 


.WORD 





BADDAT: 


.WORD 





GDDAT • • 


. WORD 





LOOPFL: 


.WORD 





CTAB: : 






CTABMjt 


.WORD 







.WORD 







WORD 






"DROPPED UNIT" FLAG. 
INHIBITS COOE IN "CLEAN-UP". 
FLAG TO SAY NO DEVICE, 

SOME TEMP LOCATIONS. 

XXDP* COMM BLOCK POINTER. 
1ST FREE MEMORY ADDRESS... 
. . .ANO SIZE (IN WORDS). 
I LAST WORD IN FREE SPACE 

KT11, MEM AVAIL FLAG - 

- .WORD • <24K OR NO KT - 

- NZ - >24K ANO KT. 

SET BY TEST ROUTINES T Ft AC >28K UNDER TEST 
SET IF WE CAN TEST CLEARED OTHERWISE 
NXM LO ADDRESS BITS 

NXM HI ADDRESS BITS FOR DAL'S 16-21 
PROCESSOR TYPE FLAG 
PROCESSOR TYPE FLAG B 
TEST 3B FLAG tQ 
32W BLOCK ADDRESS FOR 32K START 

ACTUAL DATA 
EXPECTED DATA 

CONFIGURATION TABLES, 
CONFIG WORK, 



I<3 



TSV3 - GLOBAL AREAS MACRO M1113 
GLOBAL ENVIRONMENT STORAGE 



07-FEB-84 10?58 



SEQ 036 



561 
562 
555 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
502 
583 
584 
585 
586 
587 
588 
589 
590 
591 



592 
594 
595 
596 
597 



618 
ol9 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
6 30 
631 
632 



003170 
003172 
003174 



003174 
003374 

003376 



003400 
003400 
003400 



003406 
003406 
003406 



0034 74 
003514 
003534 
003537 
003543 
003547 
003553 
003557 



000000 
177777 



000000 
000000 



124 



123 



125 



052 



052 



052 



003534 
003575 
123 
102 
123 
122 
11* 
116 



003537' 
003601 ' 
103 
111 
103 
115 
130 
102 



003543 
003605 
000 
105 
105 
122 
115 
101 



.WORD 

.WORD -1 i END OF MEM TABLE. 

CTABEj : 

ERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX: 



ERTAOL: 

ERTABE: 

SKIPT: 





100000 

10XXXX 

160000 

150001 

14XXXX 



.WORD 
.SBTTL 



.BLKW 

.WORD 



UNIT N01 TESTED 

UNIT ONLINE NO ERRORS 

UNIT ONLINE, ENCGUNTERED XXXX ERRORS 

UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 

UNIT DROPPED, NOT IDLE AT START 

UNIT DROPPED, ENCOUNTERED XXXX ERRORS 

64, 




il-SKIP SUBTEST 0-NO SKIP OF SUBTEST 

GLOBAL TEXT MESSAGES 



; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
; MESSAGES. ANO ASCII INFORMATION THAT AR£ USED IN 
5 MORE THAN ONE TEST. 



;NAMES OF DEVICES SUPPORTED 
{ - 

DEVTYP <TSU05> 
L$DVTYP;: 

.ASCIZ /TSU05/ 
.EVEN 



j TEST DESCRIPTION 
i - 

DESCRIPT <**** TSU05 DIAG PART 1 - REPLACE M7455 IF ERROR *♦**> 
L*DESCi: 

.ASCU /** + * TSU05 DIAG PART 1 - REPLACE M7455 IF ERROR ** + */ 

.EVEN 



5 BIT TO ASCII CONVERSION FOR TSSR REGISTER 
; - 



TSSRBIT 



II 
2$ 
3* 
4$ 

5J 
6$ 



.ASCIZ 
.ASCIZ 
, ASCIZ 
.ASCIZ 
.ASCIZ 
, ASCIZ 



.WORD 

.WORD 

•SC 

•BIE' 

' SCE* 

•RMR' 

'NXM' 

•NBA' 



1$. 2*. 3*. 4*. 5$, 6$. 7$, 8$ 

9$, 10 C, US, 12 $,13 i ,14 $.15 $ ,16$ 



L- 



3 



TSV3 - GLOBAL ARE^.S 
GLOBAL TEXT MESSAGES 



MACRO M1113 07-FEB-84 10:58 



SEQ 037 



633 
634 
635 
636 
637 
636 
639 
640 
641 
64? 
643 
644 
645 
646 
64 7 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
'>70 
o71 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
68? 
663 
684 

685 



003563 
003570 
003575 
003601 
003605 
003612 
003617 
003624 
003631 
003636 

003644 
003677 
003732 
003771 
004012 
004052 
004111 
004115 
0O4144 
004207 
00*213 
004250 
004272 
004327 
004401 
004451 

004521 
004522 
004525 
00456! 
004635 
004737 
005005 
005050 
005105 
005200 
005272 
005364 
005452 



005546 
005546 
005546 
005546 
005552 
005556 



102 
102 
123 
117 
102 
102 
102 
102 
102 
102 

124 
124 
040 
045 
045 
045 
045 
040 
040 
045 
040 
040 
045 
040 
040 
040 

000 
045 
045 
045 
045 
12? 
04 L 
127 
12^ 
124 
106 
105 
045 



111 
111 
123 
106 
111 
111 
111 
111 
111 
111 

123 
123 
040 
101 
101 
101 
116 
040 
040 
116 
040 
040 
101 
040 
040 
040 



116 
101 
116 
101 
101 
040 
122 
123 
123 
101 
122 
116 



124 
124 
122 
114 
124 
124 
124 
124 
124 
124 

123 
123 
116 
040 
040 
040 
045 
125 
HI 
045 
116 
111 
040 
042 
042 
042 



000 
040 
045 
040 
115 
103 
111 
123 
123 
124 
122 
045 



7$ 
6* 
9$ 

lot 

11* 
12$ 
13$ 
14$ 
15$ 
16$ 



SFIERR: 

SFHERR: 

NXR; 

NXRX; 

TSSX: 

FUSI: 

US I: 

NSI: 

FNOINTR 

NOINTR; 

IFAULT: 

INTX: 

NCUNIT 

NSINIT 

BRINIT 

NUL: 

NULCR; 

EXPGOT 

EXPGT2 

DUAD12 

PKTRAM 

SCM£: 

URTMSG: 

WRTERR: 

RDERR; 

SCHERR: 

RETFRR: 

NOMEM; 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCII 

.ASCIZ 

.ASCII 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



'BIT9' 

'BIT8' 

'SSR' 

*OFL« 

'BITS' 

•BIT4' 

■BIT3* 

'BIT2' 

•BIT1' 

'BITO' 

'TSSR ERROR AFTER SOFT INIT' 

' TSSR ERROR AFTER BUS RESET' 

/ NON-LaISTANT DEVICE REGISTER/ 

/*A ADDRESS? *06/ 

/*A TSBA t TSSR EXP'D: *06*A>06*N/ 

/*A TSBA,TSSR REC'D: *06*A,*06/ 

/*N*A/ 

/ UNEXPECTED INTERRUPT/ 

/ INTERRUPT EXPECTED, NOT RECEIVED/ 

ASCII /dNiiA/ 
/ NO INTERRUPT WAS GENERATED/ 
/ INTERRUPT FAULT/ 
/*A CPU PC; *06*A TSBA; *06/ 
/ "BUS -INIT" DIDN'T INITIALIZE CONTROLLER/ 
/ "SOFT-INIT" DIDN'T INITIALIZE THE DPU/ 
/ "BUS-RESET" DIDN'T INITIALIZE THE DPU/ 

// 

/#N/ 

/•A EXP'D; i*06*A, REC'D; *06/ 

/*N*A EXP'D; *06#A, #06*N*A REC'D; *0*A. *06/ 

/*A REGCW) WRITTEN TO: *06*A REGCR) REAO; EXP'D: *06*A, REC'D: "06/ 

.ASCIZ 'RAM Contents Do Not Match Packet Sent' 

/ CONFIG DOESN'T MATCH MFG. MASTER/ 

'WRITE CHARACTERISTICS Failed' 

'TSSR Incorrect After WRITE Command, More Bits Set Than SSR' 

'TSSR Incorrect After READ Command, More Bits Set Than SSR' 

'FATAL ERROR IN SUBTEST - CHECK TAPE , CABLES, TRANSPORT etc.' 

'ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIMES FAILED' 

<*N*A ***** NO NXM ADDRESS --CANNOT TEST NXM TIMEOUT. ******N' 



.SBTTL GLOBAL ERROR REPORT SECTION 

5 ♦♦ 

; THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 

j CALLS THAT fcRE USED IN MORE THAN ONE TEST. 

5 ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 



NXRERR: ; 



BGMMSG NXRERR 



013746 
012746 
012746 



003112 
003 771 
000002 



PRINTX 

MOV 
MOV 
MOV 



*NXRX,NODEV 
NODEV.-CSP) 
GNXRX, -(SP) 
G2.-CSP) 



iNON-EXISTANT DEVICE REGISTER. 
jNODEV " NEXM ADDRESS. 



M3 



TSV3 GLOBAL AREAS 


MACRO M 


GLOBAL ERROR REPORT SECTION 




005562 


010600 






005564 


104415 






005566 


062706 


000006 


686 


005572 


004737 


005600' 


687 


005576 
005576 








005576 


104423 




688 








689 








690 








691 








692 








693 








694 


005600 


005727 




695 


005602 


000000 




696 


005604 


001402 




697 


005606 


004777 


177770 


698 


005612 








005612 


012746 


004522' 




005616 


012746 


000001 




005622 


010600 






005624 


10*415 






005626 


062706 


000004 


699 


005632 


000207 




700 








701 








702 








703 








704 








705 








706 








707 








708 








709 








710 








711 








712 








713 








714 








715 








716 








717 








718 








719 


005634 






720 


005634 






721 


005640 


010104 




722 


005642 








005642 


010446 






005644 


012746 


006225' 




005650 


012746 


000002 




005654 


010600 






005656 


104414 






005660 


062 706 


000006 


723 


005664 


010400 




724 


005666 


004737 


015654' 


725 


005672 


103410 




726 


005674 







M1113 07-FEB-84 10:58 



SEQ 038 



MOV 


SP,RO 


TRAP 


CJPNTX 


ADD 


06, SP 


JSR 


PC, EXTEND 


ENDMSG 




L 10002: 





I PRINT EXTENSION IF REQUIRED. 



TRAP 



C$MSG 



j THIS ROUTINE APPENDS A UNIQUE EXTENSION (IE REQUIRED) 
i TO ANY OP THE ABOVE ERROR SIGNATURES. 



NO EXTENSION. 



EXTEND: 


TST 


CPO* 


EXTA: 









BEQ 


1$ 




JSR 


PC.SEXTA 


1$: 


PRINTX 


ONULCR 




MOV 


ONULCR, -CSP) 




MOV 


01, -(SP) 




MOV 


SP.RO 




TRAP 


CIPNTX 




ADD 


04, SP 




RTS 


PC 



j APPEND EXTENSION TEXT. 
; PRINT A BLANK LINE 



.SBTTL PRITSSR - PRINT TSSR CONTENTS 

+ 

ROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS. OF 
THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
BY A MESSAGE PRINTING ROUTINE 

INPUTS: 

Rl CONTENTS OF TSSR 
SUBORDINATE ROUTINES; 

CHKAMB CHECK FOR AMBIGUOUS CONTENTS 



j SAVE GENERAL REGISTERS 
{SAVE THE TSSR CONTENTS 
; PRINT THE CONTENTS OF TSSR 



PRITSSR: 




SAVREG 




MOV 


R1.R4 


PRINTB 


OT$SRF0R,R4 


MOV 


R4.-CSP) 


MOV 


OTSSRFOR, -CSP) 


MOV 


02 . - C SP ) 


MOV 


SP,RO 


TRAP 


CiPNTB 


ADO 


06, SP 


MOV 


R4,R0 


JSR 


PC, CHKAMB 


BCS 


5$ 


PRINTX 


OAMBTSSR 



;GET TSSR BACK FOR CHKAMB 
j ARE CONTENTS PM8IGU0US ? 
j BRANCH IF NOT 
;SHOW CONTENTS ARE AMBIGUOUS 



TSV3 - GLOBAL AREAS MACRO Mil 13 
PRITSSR - PRINT TSSR CONTENTS 



N3 



07-FEB-84 10?58 



SEQ 039 



727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 



745 
746 
747 
748 
749 



750 
751 
752 
753 
754 
755 
756 
757 



758 
759 
760 



005674 
005700 
005704 
005706 
005710 
005714 
005716 
005722 
005724 
005730 
005734 
0C5736 
005740 
005742 
005744 
005746 
005750 
005752 
005754 
005762 
005764 
005766 
005770 
005770 
005774 
006000 
006004 
006006 
006010 

006014 
0CS016 
006022 
006026 
006026 
006030 
006034 
006040 
006042 
006044 
006050 
006052 
006056 
006060 
006062 
006064 
006066 
006072 
006072 
00607^ 
006100 
006104 
006106 
006110 
006114 
006120 
006122 



012746 
012746 
010600 
104115 
062706 
010403 
042703 
001434 
012702 
012701 
005703 
001413 
000241 
006103 
103006 
011100 
112022 
001376 
112762 
005721 
000763 
105042 

012746 
012746 
012746 
010600 
104415 
062706 

010403 
042703 
016303 

010346 
012746 
012746 
010600 
104415 
062706 
010403 
042703 
001416 
006203 
006203 
006203 
016303 

010346 
012746 
012746 
010600 
104415 
062706 
042704 
001411 



006445 
000001 



000004 

001476 

002630 
003474 



000054 177777 



002630 1 
0064 16 ' 
000002 



000006 



177761 
006506 



006306 
000002 



000006 
177717 

007046 



00634 7 
000002 



000006 
176377 





MOV 


0AMBT5SR,-(SP) 




MOV 


01.-CSP) 




MOV 


SP,RO 




TRAP 


C$PNTX 




ADD 


04, SP 


5$: 


MOV 


R4,R3 




BIC 


OHIADDRJFATERR! 




BEQ 


20$ 




MOV 


0TMPBFP.K2 




MOV 


OTSSRBIT.Rl 


10$ i 


TST 


R3 




BEQ 


15$ 




CLC 






ROL 


R3 




BCC 


13$ 




MOV 


CRD.RO 


11$: 


MOVB 


(R0)*,CR2)* 




BNE 


11$ 




MOVB 


0' ,. -1CR2) 


13$: 


TST 


CRD* 




BR 


10$ 


15$: 


CLRB 


-CR2) 




PRINTX 


OTSSDEF,OTNPBFR 




MOV 


OTMPBFR.-CSP) 




MOV 


OTSSDEF,~(SP) 




MOV 


02,-CSP) 




MOV 


SP.RO 




TRAP 


C$PNTX 




ADD 


06, SP 


^0$; 


MOV 


R4,R". 




BIC 


OtCTERCLS,R3 




MOV 


TC0C0D(R3),R3 




PRINTX 


0TC0ASC,R3 




MOV 


R3.-CSP) 




MOV 


OTCOASC.-CSP) 




MOV 


02, (SP) 




MOV 


SP.RO 




TR^P 


C$PNTX 




AOO 


06, SP 




MOV 


R4.R3 




BIC 


OtCFATERR,R3 




BEQ 


25' 




ASR 


R3 




ASR 


R3 




ASR 


R3 




MOV 


TSrC0DCR3),R3 




PRINTX 


0TFCASC,R3 




MOV 


R3. -(SP) 




MOV 


OTFCASC.-CSP) 




MOV 


02, -CSP) 




MOV 


SP.RO 




1RAP 


CSPNTX 




ADD 


06, SP 


25$; 


BIC 


OtCHIADDR,R4 




BEQ 


30$ 




PRINTX 


0TEXASC t R4 



{CONTENTS OF TSSR 
TERCLS,R3 {CLEAR ALL MULTIPLE BIT FIELDS 
iNC BITS ARE SET 
{TEMPORARY ASCII BUFFER 
j ASCII EQUIVALENT OF BITS 
{REMAINING BITS TO CONVERT 
{BRANCH WHEN ALL ARE DONE 
{CLEAR CARRY FOR SHIFT 
{SHIFT NEXT BIT TO CARRY 
{BRANCH IF BIT NOT SET 
{POINTER TO BIT DEFINITION 
-.MOVE A'jCIZ TP BUFFER 
{MOVE ALL BITS 

{INSERT A COMMA TO TERMINATE 
{POINT ^0 NEX T DESCRIPTION 
{GET THE REMAINING BITS 
{TERMINATE THE LINE 
{PRINT THE BIT DEFINITIONS 



{GET THE TSSR CONTENTS 

{CLEAR ALL BUT TERMINATION 

{GET THE TERMINATION CODE MEANING 

{PRINT THE TERMINATION CODE 



TSSR CONTENTS AGAIN 

CLEAR ALL BUT FATAL TERMINATION 

DON' T PRINT IF ZERO 



; ALINE TERMINATION CODE FOR INDEX 
{GET THE FATAL TERMINATION CODE 
{PRINT THE FATAL TERMINATION CODE 



j CLEAR ALL BUT EXTENDED ADDRESS 

{DON' T PRINT IF ZERO 

i PRINT THL EXTENDED ADDRESS BITS 



B4 



TSV3 - GLOBAL AREAS 
PRITSSR - PRINT TSSR 



MACRO M1113 
CONTENTS 



761 
762 



763 
764 
766 
767 
782 
783 
764 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
603 
804 
305 
606 
807 
808 
609 
810 
811 
812 
813 
814 
815 
816 
817 
818 
810 
820 
621 



006122 
006124 
006130 
006134 
006136 
006140 
006144 
006150 
006150 
006152 
006156 
006160 
006162 
006166 

006170 
006170 
006225 
006245 
006306 
006347 
006416 
006445 

006506 
006526 
006551 
006577 
006621 
006641 
006723 
006772 
C07016 



007046 
007056 
007112 
007123 
00716/ 



010446 
012746 
01274* 
010600 
104415 
062706 
013703 

010346 
012746 
010600 
104415 
062706 
000207 



045 
045 
045 
045 
045 
045 
045 

006526* 
116 
124 
124 
106 
122 
122 
125 
106 



00/056 
111 
122 
102 
122 



006245 
000002 



000006 
O02176 1 



00OOO1 
000004 



116 
116 
116 
116 
116 
116 
116 



07-FEB-84 10:58 



MOV 
MOV 
MOV 
MOV 
TRAP 
AOO 
30$ j MOV 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

AOO 

RTS 



045 
045 
045 
045 
045 
045 
045 



006551' 006577 

157 162 

145 162 

141 160 

165 156 

145 143 

145 143 

156 162 

141 164 



007112* 
156 
145 
165 
145 



O07123 
164 
163 
163 
163 



SEQ 040 



R4,-(SP) 

*TEXASC,-(SP) 

♦2,-CSP) 

SP.RO 

CIPNTX 

♦6.SP 

EPRTSW.R3 

R3 

R3,-(SP) 

•i.-(SP) 

SP.RO 

C$PNTX 

♦4.SP 

PC 



l PRINT MEAASGE BUFFER ADDRESS 
j PRINT PROPER MESSAGE 



iRETURN TO CALLER 



EPRT2j 

EPRT1: , ASCIZ »*N*A ♦♦♦♦♦REPLACE M7455 

TSSRFOR: .ASCIZ 

TEXASCj .ASCIZ 

TCOASC: .ASCIZ 

TFCASCj .ASCIZ 

TSSOEF: .ASCIZ 

AMBTSSR: .ASCIZ 



TCOCOO: 

lit 

2$: 

31: 

41? 

51: 

61: 

7$: 

Bit 



TSFCOOj 

lit 

21: 

31: 

41: 



I ♦ 



.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

♦ EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 



*N*A TSSR • *06* 

4N*A Ext*nd*<* Addraaa Sit* - 406' 

*N*A Tarmination Claa* Cod* ■ *T' 

#N#A Fatal Tarmi nation Claaa Coda ■ t*T 

#N*A TSSR Bitu Satj *T- 

*N*A TSSR Contanta Ara Antoigooua' 



II, 21,31, 41,5$, 61.71,81 

•Normal TarwJnatJon' 
• Tarm ! nation Condition' 
•Tap* Statua Aiarf 
'Function Rajact* 
'Racovaratola Error - Tapa 
•Racovarabla Error - Tapa 
'Unracovarabla Error' 
'Fatal Controllar Ei'ror' 



Poaition Ona Record Down 

Was Not Movad' 



11,21,31.41 

' Intarnal Diagnoatic 

•Raaarvad* 

'Bus Intarfaca or Sanity 

•Raaarvad' 



Fai lura' 

Chack Error' 



.SBTTL PRIPKT - PRINT THE AODRESS/CONTENTS OF COMMAND PACKET 



THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMANO PACKET. 
THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 



INPUT: 



RO 
R3 
R4 



NUMBER OF WORDS IN PACKET 

HIGH OROER COMMAND PACKET ADDRESS 

ADDRESS OF COMMAND PACKtT 



NOTE: R3 XS XGNQRLD IF THE KTENABLE FLAG 15 CLEAR, 



pj^kt GU « R i mJSmmhh 8?-EHmI»d 1 PA»et 



C4 



622 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 



833 
834 
835 
836 
837 
836 
839 
840 



841 
842 
843 
844 
845 
846 
847 
843 
849 
850 
851 
_852 
853 

855 
856 
857 
858 
859 
860 
861 
862 
863 
«64 



007200 
007200 
007204 
007206 
007212 
007214 
007216 
007220 
007222 
007224 
007226 
007226 
007230 
007232 
007236 
007242 
007244 
007246 
007252 
007254 
00 7256 
007260 
007264 
007266 
007270 
007272 
00 7 272 
007274 
007276 
007302 
007306 
007310 
00731L2 
00733.6 
007320 
007322 
0073;>4 

O073.?6 
0073*4 



010005 
005737 
0C10O1 
005005 
010301 
010400 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104414 
062706 
010300 
001404 
010401 
004737 
010004 
005001 
012402 

010246 
010146 
012746 
012746 
010600 
104414 
062706 
005201 
020105 
002762 
000207 

045 
045 



003132 



007 364' 
000003 



000010 



017130' 



007326 
000003 



000010 



116 
116 



045 
045 



PRIPKTi \ 

SAVREG 

MOV 
1ST 
BNE 
CI.R 

10*i MOV 
MOV 
ROL 
ROL 

PRINTB 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
AOD 

15$ i MOV 
BEQ 
MOV 
J5R 
MOV 

20 *? CLR 

25$; MOV 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

INC 

CMP 

BLT 

RTS 

PKTFRMj .ASCIZ 
PKTADDi .ASCIZ 
,EVEN 



R0.R5 

KTENABi.E 

101 

R3 

R3.R1 

R4.R0 

RO 

Rl 

#PKTAD0,R1,R4 

R4,-(SP) 

Kl.-CSP) 

♦PKTADO.-(SP) 

*3,-(SP) 

SP.RO 

CIPNTB 

♦10, SP 

R3.R0 

20$ 

R4.R1 

PC.SETMAP 

R0.R4 

Rl 

(R4)*.R2 

*PKTFRM,R1,R2 

R2.-CSP) 

Rl.-(SP) 

♦PKTFRM.-CSP) 

#3.-CSP) 

SP.RO 

C*PNTB 

♦10, SP 

Rl 

R1.R5 

25$ 

PC 



SEQ 041 



iSAVE THE REGISTERS 

» SAVE NO, Of WORDS IN PACKET 

.ABOVE 26K UNDER TEST? 

iBR IF YES 

iSET HIGH ORDER ADORE SS TO 

iCOPY HIGH ORDER ADDRESS 

jGET LOWER ADDRESS 

iSHIFY BIT 15 INTO C ,Uf 

j^NO INTO HIGH ORDER. 

I MINT PACKET ADDRESS 



I GET HIGH WDER ADDRESS 
I BR IF NOT ABOVE 28K . 
iGET LOW ORDER AOORESS 
iSETUP PAR6 MAPPING r 0« 18 
iGET RETURNED PAR6 ADDRESS 
I SAVE WORD NUMBER 
iGET PACKET CONTENTS 
I PRINT THE DATA 



BIT ADDRESS 
BIAS 



jNEXT WORD NUMBER 
iDONE ALL PACKET WOPOS? 

I LOOP TILL ALL DONE 
jRETURN 



•*N*A P»ck#t Word <N*01*A - #06 
'*N*A Packet Addr««« - *01*05' 



.SBTTL PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 



PRINT EXPECTF.D DATA, RECEIVED DATA. AND XOR OF THE DATA BYTE 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES*" 



INPUTS? 



Rl 

R* 



RECEIVED DATA 
EXPECTfcD OATA 



OUTPUT 



KSBxoR^ftN^IIIfe. REB0 c 8ft) M 46A 3 BY?Z- FEB - a4 10{58 



D4 



SEQ 042 



865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
8 76 
877 



875 
879 
880 
881 
882 
883 
884 
885 
886 
087 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
.901 
902 
903 
904 
905 
906 
907 



007422 
007422 
007426 
007430 
007440 
007444 
007446 
007450 
007452 
007452 
007*54 
007456 
007460 
007464 
00^4 70 
007472 
007474 
007500 
007502 

0075O4 



007552 
007552 
007556 
007560 

007570 
007570 
007572 

007574 
007576 
007602 
007&06 



0103*6 
010146 
010246 
012746 
012746 
010600 
104414 
062706 
010300 
000207 

045 



010203 



010346 
010146 
010246 
012746 
012746 
010600 



RO 



XOR OF EXPECTED/RECEIVED DATA 



l - 



010203 

012700 177400 
040001 
040002 
040003 



007504 
000004 



000012 



PRIBXOR; j 

SAVREG 

MOV 

XOR 

MOV 

BIC 

BIC 

BIC 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

MOV 

RTS 



R2.R3 

R1.R3 

♦*C<377>,RO 

R0.R1 

R0.R2 

R0.R3 

0X0RBF0R,R2,R1 

R3.-CSP) 

Rl.-(SP) 

R2.-CSP) 

♦XORBFOR.-(SP) 

04,-CSP^ 

SP.RO 

C1PNTB 

♦12, SP 

R3.R0 

PC 



l SAVE THE REGISTERS 
lEXPECTEO DATA 
iFORM THE EXCLUSIVE 
,BYTE MASK 
{SAVE LOW BYTE RECV 
i SAVE LOW BYTE EXPO 
lSAVE LOW BYTE XOR 
,R3 iPRINT THE MESSAGE 



OR 



|R0 HAS 

jRETURN 



XOR ON RETURN 
TO CALLER 



116 



045 XORBFOR: 



• EVEN 



.ASCIZ '*N#A EXPD: *03*A RECVj *03#A XORj *03' 



.SBTTL PRIKOR - PRINT EXPD t RECV AND XOR 



PRINT EXPECTED DATA. RECEIVED DATA, AND XOR OF THE TWO 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES, 



INPUTS? 



Rl RECEIVED DATA 
R2 EXPECTED DATA 



OUTPUT: 



RO XOR OF EXPECTED/RECEIVED DATA 



PRIXOR;; 



007622 

000004 



SAVREG j SAVE THE REGISTERS 

MOV R2.R3 lEXPECTEO DATA 

XC* R1.R3 jFORM THE EXCLUSIVE OR 

PRINTB *X0RF0R,R2,R1.R3 jPRINT THE MESSAGE 

MOV R3.-CSP) 

MOV Rl.-(SP) 

MOV R2.-CSP) 

MOV OXOPFOR, -CSP) 

MOV C4.-CSP) 

MOV SP.RO 



TSV3 - GLOBAL AREAS MACRO MU13 07-FEB-84 1Q}50 
PRIADO - PRINT MEMORY ERROR ADDRESS 



F4 



SEQ 044 



957 








958 








959 








960 








961 








962 








963 








964 








965 








966 








967 


007770 






968 


007770 






969 


007774 


013700 


002234' 


970 


010000 


013701 


002236' 


971 


010004 


010102 




972 


010006 


006101 




973 


010010 


006100 




974 


010012 








010012 


010246 






010014 


010046 






010016 


012746 


010040' 




010022 


012746 


000003 




010026 


010600 






010030 


104414 






010032 


062706 


000010 


9 75 


010036 


000207 




976 








977 


010040 


045 


116 


978 








979 








980 








981 








982 








983 








984 








985 








986 








987 








9SG 








989 








990 








991 








992 








993 


01CiC4 






994 


010104 






995 


010110 


013702 


002234' 


996 


010114 


013701 


002236' 


997 








998 








999 








iQOO 010120 








010120 


010146 






010122 


012746 


010166' 




010126 


012746 


000002 




010132 


010600 






010134 


104414 






010136 


062706 


000006 



PRINT MEMORY ADDRESS 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES, 



IMPLICIT INPUTS 



PRIADDj 



045 PRIAOi 



ERRHI 
ERRLO 



SAVREG 

MOV 

MOV 

MOV 

ROL 

ROL 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 

♦ASCI* 

.EVEN 



- HIGH ORDER ADDRESS 

- LOW ORDER ADDRESS 



ERRHI, RO 

ERRLO.Rl 

R1.R2 

Rl 

RO 

*PRIA0.R0,R2 

R2.-CSP) 

RO.-(SP) 

*PRIA0, -CSP) 

♦3,-CSP) 

SP.RO 

CIPNTB 

010, SP 

PC 



j SAVE R1-R5 UNTIL NEXT RETURN 

jGET HIGH ADDRESSS 

iGET LOW ADDRESS 

tCOPY LOW ADDRESS 

jSHIFT BIT 15 TO C BIT 

» SHIFT INTO HIGH ORDER 

jPRINT MEMORY ADDRESS IN FRROR 



l RE TURN 



'*N*A MEMORY ERROR ADDRESS « K01K05 



.SBTTL PRITADD - PRINT MEMORY TEST ADDRESS 



PRINT MEMORY ADDRESS 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM P3INT ROUTINES. 



IMPLICIT INPUTS 



ERRHI 
ERRLO 



- HIGH ORDER ADDRESS 

- LOW ORDER ADDRESS 



PRITADD: 



SAVREG 

MOV 

MOV 

j MOV 

i ROL 

»ROL 

PRINTB 

MOV 

MOV 

MOV 

MOV 

1RAP 

ADO 



ERRHI ,R2 

ERRLO, Rl 

R1,R2 

Rl 

RO 

*PRIT0,R1 

Rl.-CSP) 

♦PRITO, -CSP) 

♦2,-CSP) 

SP,RO 

CIPNTB 

06.SP 



iSAVE R1-R5 UNTIL NEXT RETURN 

l GET HIGH ADDRESSS 

iGET LOW ADORE 5S 

l COPY LOW ADDRESS 

jSHIFT BIT 15 TO C BIT 

I SHIFT INTO HIGH ORDER 

, PRINT MEMORY ADDRESS LOW IN ERROR 



G4 



TSV3 - GLOBAL AREAS MACRO M1113 
PRITADD - PRINT MEMORY TEST ADDRESS 



1001 



1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1016 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
10A? 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 



010142 
010i4? 
010144 
010150 
010154 
010156 
OlCi.60 
010164 

010166 
010231 



010276 
010276 
010302 
010310 
010316 
010320 
010322 



010246 
012746 
0127-16 
010600 
104414 
062706 
000207 

045 
045 



010231 
000002 



000006 



07 -FEB -84 10:58 



PRINTS 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 



SEQ 045 



*PRIT1,R2 
R2.-CSP) 

*PRIT1 # -(SP) 

*2,-(SP) 

SP.RO 

CIPNTB 

06. SP 

PC 



\ PRINT MENORY ADDRESS HIGH IN ERROR 



jRETURN 



116 
116 



045 
045 



PRITO: 
PRIT1: 



.ASCIZ 
.ASCIZ 
.EVEN 



'*N*A MEMORY TEST ADDRESS LOU - KOo' 
'UNrfA MEMORY TEST ADDRESS HIGH - #06 



.SBTTL SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 



ROUTINE TO ISSUE A SPACE RECORDS 
COMMAND (FORWARD OR REVERSE) 



INPUT: 



R3 



R5 



NUMBER OF RECf>RDS TO BE SPACED OVER 

BIT15 CONTROLS DIRECTION 

BIT15 - IS FORWARD 

BIT15 - 1 IS REVERSE 

FIRST DEVICE UNIBUS AODRESS 



REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 



OUTPUT; 



CARRY SET - SPACE RECORDS COMMANO OK 
CLR - SPACE RECORDS FAILED 



RO THE CONTENTS OF R4 IS MOVED TO RO 

IMPLICIT OUTPUT: 

TAPE HAS BEEN MOVED 
SIDE EFFECTS: 

SPACE:: 



012737 
012737 
005703 
100403 
010337 
QQ040? 



000764 
140010 



010462' 



010470 
010460' 



SAVREG 




MOV 


4500..SDELAY 


MOV 


0140010,80$ 


TST 


R3 


BMI 


5* 


MOV 


R3.90* 


BR 


10$ 



I SAVE THE GENERAL REGISTERS 

I SET UP DELAY 

j SET UP COMMANO. SPACE FORWARO 

iCHECK FOR DIRECTION 

iBR. IF REVERSE INDICATED 

I LOAD UP NUMBER OF" RECORDS TO SPACE 

j GO DO COMMAND 



TSV3 * GLOBAL AREAS MACRO M1113 07-Fco a 4 10558 
SPACE • SPACE RECORDS (FORWARD AND REVE&SE) COMMAND 



H4 



SEQ 046 



1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 



1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1066 
1069 
1070 
1071 
1072 
1073 
10 74 
1075 
1076 
1077 
1076 
1079 
1081 
1083 
1084 
1085 
1086 
1087 
1098 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 



010330 
010334 
010340 
010346 
010352 
010356 
010362 
010364 
010364 
010370 
010572 
010376 
010400 
010404 
010406 
010412 
010414 
010420 
010422 
010424 
010430 
0104 34 
0104 36 
010440 
010442 
010444 
010446 
010450 
010450 
010452 



010462 
010464 
010466 
010470 



042703 
010337 
052737 
012704 
010465 
004737 
103420 

01272-' 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
000411 
016501 
012702 
020201 
001401 
000402 
000261 
000401 
000241 

010400 
000207 



010454 



010460 000000 



000000 
000000 
000000 
000000 



100000 5*} 

010462' 

000400 010460' 

010460' 10$: 

000000 

016060' 15$} 



000250 

002116' 

177772 

177756 

010470 



000002 
000200 



20$; 
25$; 

40$: 

60$: 
70$ i 



{ 



BIC 

MOV 

BIS 

MOV 

MOV 

JSR 

BCS 

DELAY 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

DEC 

BNE 

BR 

MOV 

MOV 

CMP 

BEQ 

BR 

SEC 

BR 

CLC 

MOV 
RTS 



OBIU5.R3 

R3,90$ 

OBIT8,80$ 

080$, R4 

R4,TSDB(R5) 

PC.WAITF 

20$ 

250 

0250. (PC)* 



LIDLY.(PC)* 



-6CPC) 

.-4 

-22(PC) 

.-20 

SDELAY 

15$ 

60$ 

TSSR(R5),R1 

*SSR,R2 

R2,R1 

40$ 

60$ 

70$ 



R4,R0 
PC 



I CLEAR DIRECTION BIT 
,LCAD UP NUMBER OF RECORDS TO SPACE 
I SET REVERSE BIT IN COMMAND PACKET 
i SET VP R4 WITH PACKET ADDRESS 
:SEND OUT COMMAND 
I WAIT FOR SSR 
i BR, IF SSR IS SET AND OK 
(DELAY ABOUT ,25 SECONDS 



j BUMP DELAY COUNTER DOWN 

I BR, IF MORE DELAY 

j BR IF TROUBLE CARRY - CLEAR 

jREAD TSSR 

j SET UP EXPECTED 

tARE THEY OK 

l BR, IF ^QUAL - OK 

, TROUBLE EXIT 

I SET CARRY NO TROUBLE 

lEXIT 

l CARRY CLEAR - EP90R 



i PASS PACKET 
I RETURN 



ADDRESS 



j PACKET FOR SPACE COMMAND 

.BLKB 10-<.-TSV267> 

i COMMAND WORD 
80$: .WORD 
j NUMBER OF RECORDS TO BE SPACED OVER WORD 



90$: 



SDELAY: 



.WORD 
.WORD 
.WORD 
.WORD 
♦ EVEN 







j DELAY COUNTER 



.SBTTL WRTCHR - WRITE CHARACTERISTICS COMMAND 



i * 



jROUTINE TO ISSUE A WRITE CHARACTERISTICS 

j COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 

{INPUT: 

I 



14 



TSV3 - GLOBAL AREAS MAC«*0 M1113 07-FEB-84 10<58 
WRTCHR - WRI1E CHARACTERISTICS COMMAND 



SEQ 047 



1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
111ft 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 

1:43 

1144 
1145 
1146 
1147 
1148 
1149 

11 50 
1151 

1152 
1153 
1154 
1155 

±156 
1157 
1158 
1159 



0104 72 
0104 72 
0104 76 
010502 
010506 
010512 
010516 
01052^ 
010522 
010526 
010532 
010536 
010540 
010544 
010546 
010550 
010552 
010556 
010560 
010566 
010570 
010574 
010574 
010602 
010604 
010610 
010610 
010612 
010614 
010616 
010622 



005037 
005-" ' 

0) .,- .:. 

0' - : . V; 

J. ,'■:•' 

01. 

0165C1 

012702 

032701 

001402 

052702 

020201 

001401 

000421 

062704 

011403 

032763 

001-102 

005237 

032763 
001402 
005237 

000261 
0OO401 
000241 
016500 
000207 



R4 



ADDRESS OF PACKET FROM TEST 
R5 FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 



OUTPUT; 



RO TSSR CONTENTS 

CARRY SET - WRITE CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 



IMPLICIT OUTPUT: 



UP 



MESSAGE BUFFER AND OTHER BUFFERS ALL SE 

SOFTWARE SWITCHES SET AS FOLLOWS: 

EXTFEA » EXTENOED FEATURES PRESENT 
BEN3SW ■ BUFFER ENABLE SWITCH ON OR OFF 



SIDE EFFECTS: 



002226' 
02224- 
JOOOO 

. 16146* 



000002 
000200 
000100 

000100 



000010 

000200 000012 

002224 ' 

000100 000012 

002226' 

000002 



WfiTCHRj 



10$ 



20* 



25$ 



40$ 



45$ 



50$ 



60$ 
70$ 



r ,AVREG 

LLM 

CLR 

MOV 

JSR 

BCS 

BR 

MOV 

MOV 

BIT 

BEQ 

BIS 

CMP 

BEG 

BR 

ADD 

MOV 

BIT 

BEQ 

INC 

BIT 
BEQ 
INC 

SEC 
BR 

CLC 
MOV 
RTS 



BENHSU 

EXTFEA 

R4.TSDBCR5) 

PC.CHKTSSR 

20$ 

60$ 

TSSR(R5),R1 

*SSR,R2 

*0FL,R1 

25$ 

*OFL,R2 

R2.R1 

40$ 

60$ 

08. ,R4 

CR4),R3 

*X2.fXTF,XST2(R3) 

45$ 

EXTFEA 



j SAVE THE GENERAL REGISTERS 
iCLhAR BUFFER ENABLE SWITCH 

CLEAR EXTENOED FEATURES SW SWITD 

SENO OUT COMMAND 

I'AIT FOR SSR 

3R, Ih SSR IS SET AND OK 

BR IF TPOUBLE CARRY - CLEAR 

READ TSS1 

SET L? EXPECTED 

WAS OFF LINE SET IN "SSR 

BR, IF NO OFL SET 

MAKE THF.M LOOK ALIKE 

ARE THEY OK 

BR, I r EQUAL * OK 

TROUBLE EXIT 

POINT TO WRT CHARA DATA PACKET 

GET ADDRESS OF MESSAGE BUFFER 

EXTCNOED FEATURES BIT SET? 

bR IF NO 

SET EXTENOED FEATURES SW SWITCH 



0X2,BUFE,XST2(R3) 

50$ 

BENBSW 



70$ 

TSSRCR5),R0 
PC 



j BUFFER ENABLE 
Brt. IF SWITCH NOT SET 
SET SOFTWARE SWITCH FOR ENABLED 

SET CARRY NO TROUBLE 
EXIT 

CARRY CLEAR • ERROR 
RETURN TSSR CONTENTS 
•RETURN 



SWITCH SET 



.SBTTL REWIND - POSITION TAPE (REWIND) COMMAND 



J4 



TSV3 - GLOBAL AREAS MACRO M1113 07-FEB-84 10:58 
REWIND • POSITION TAPE (REWIND) COMMAND 



SEQ 04ft 



1 ioO 
1161 
1162 
1163 
1164 
1165 
1166 
U67 
1168 
1169 
1170 
M71 
11.2 
ll?3 
1174 
M'/Tj 

r, 76 

11/7 

1 .1 78 

1179 

1180 

1181 

1182 

1183 

1161 

.1185 

1136 

1187 

1188 

1189 

1190 

1191 

119? 

1193 

1194 



1195 
1196 
1197 

1198 
1199 
1200 
1201 
1203 
1205 
1206 
1207 
1208 
1209 
1210 



010624 
03 0624 
010630 
010634 
010640 
010644 
010650 
010652 
01065? 
010656 
010660 
010664 
010666 
010672 
010674 
010700 
010702 
010704 
0107J6 
010710 
010712 



010714 
010720 
010720 
010722 



01270*4 
010*65 
0X2703 

004737 
103417 

012727 
000000 

013727 
OOOOOO 
005367 
OOJ375 
005367 
00136? 
005303 
001357 
000241 
010400 
000207 



102010 
OOOOOO 



010720' 

ocoooo 

0CO550 
016060' 



000372 
002 116' 
177772 
177756 



5 ♦ 

I 

j THIS ROUTINE WILL REWIND THE SELECTED TAPE. 

; 

! CAUTION; THE ROUTINE DOES NOT WAIT FOR BOT 

I TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 

I SSR TO SET IN THE TSSR 



CALLING SEQUENCE: 

DO A SOFT INIT 

DO A WRITE CHARACTERISTICS 

JSR PC, REWIND 



INPUT: 



R5 



FIRST DEVICE UNIBUS ADDRESS 



j OUTPUT 






i 


RO 


THE CONTENT 


REWIND: 


*SAVRF.G 






MOV 


#«WPACK,R4 




MOV 


R4.TSDBCR5) 




MOV 


**60. .R3 


10$: 


JSR 


FC.UAITF 




uc:> 


20$ 




DELAY 


^'50 . 




MOV 


#250. ,(PC)» 




.WORD 


C 




MOV 


L *OLY.(PC)» 




.WORD 







DEC 


-6CPC") 




BNE 


. -4 




DEC 


•221 PC > 




BNE 


, -20 




DEC 


R3 




BNE 


10* 




CLC 




20$: 


MOV 


R4.R0 




RTS 


PC 



UNTIL NEXT RETURN 
ADDRESS 



j SAVE R1-R5 

iGET PACKET 

»SENO PACKET ADDRESS TO EXECUTE 

i ENOUGH TIME FOR 2400' REEL TO REWIND 

i WATT FOR SSR TO SET 

{I EAVE WHEN SSR IS SET 

;WAIT FOR .25 SECONDS 



RWPACK : 



.BLKB 10-<. -TSV267> 

.WORD 102010 
. WORD 



j BUMP COUNTER DOWN 

j KEEP GOING 

{CLEAR CARP> TO SET t RRQR 

j PASS THE PACKET ADDRESS 

I RETURN 



jPOSTION COMMAND (REWIND) 
j NOT USED 



.SBTTL CKRAM - COMPARE RAM TO I/O PACKET 



I<4 



TSV3 - GLOBAL AREAS MACRO M1113 
CKRAM - COMPARE RAM TO I/O PACKET 

iaii 

1212 
1213 
1214 
1215 
1216 
1217 
!21B 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1257 
1238 

1239 010724 

1240 010/24 

1241 010730 

1242 010734 

1243 010740 

1244 010742 

1245 010746 

1246 010754 
124 7 010760 

1248 010764 

1249 010770 

1250 010774 

1251 010776 

1252 011000 

1253 011002 

1254 011004 

1255 011010 

1256 011012 

1257 011014 

1258 011016 

1259 OU 020 

1260 011022 

1261 011024 

1262 011032 
1263 
1264 
1265 
1266 
X267 



07-FEB-84 10-58 



SEQ 049 



ROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 



INPUT; 



R4 
R5 



OUTPUT: 



CARRY 



ADDRESS Or "" COMMAND PACKET 
FIRST DEVlLc „,<IBUS ADDRESS 



SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 

THE TABLE RAMOATA IS FILLED WITH THE 

DATA HELD IN RAM, 

RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 

STDE EFFECTS: 

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



CKRAM: 



012701 
012702 
005003 
004 737 
112765 
0O47.57 
010265 
004737 
116511 
122124 
001401 
005203 
005202 
020227 
003761 
005703 
001402 
000241 
000401 
000261 
012737 
000207 



002240' 
000201 

016146' 

000000 

016146' 

COOOOO 

016146' 

000000 



000210 



000000 



000010 002300 





SAVREG 






MOV 


♦RAMOATA. Rl 




MOV 


0RMPKTBEG.R2 




CLR 


R3 




JSR 


PC.CHKTSSR 




MOVB 


<K).TSDB(R5) 


10$: 


JSR 


PC.CHKTSSR 




MOV 


R2.TSDBCR5) 




JSR 


PC.CHKTSSR 




MOVB 


TSBA(R5).(R1) 




CMPB 


(Rl)f ,CR4)* 




BEQ 


20$ 




INC 


R3 


20*: 


INC 


R2 




CMP 


R2.0RMPKTEND 




BLE 


10$ 




TST 


R3 




BEQ 


30$ 




CLC 






BR 


50$ 


30$: 


SEC 




50$: 


MOV 


08, , RAMSIZ 




RTS 


PC 




.SBTTL 


CKRAM2 - COMPARE 



SAVE THE GENERAL REGISTERS 
ADDRESS TO SAVE THE RAM DATA 
BYTE ADDRESS OF FIRST RAM DATA 
CLEAR THE ERROR FLAG 
WAIT FOR SSR 
SET MAINTENANCE MOCt 
WAIT FOR SSR TO SET 
SELECT NEXT RAM ADDRESS 
WAIT FOR SSR TO SET 
READ THE RAM DATA 
COMPARE TO EXPECTED 
BRANCH IF OK 
SET ERROR FLAG 

ADDRESS OF NEXT RAM LOCATION 
REACHED ENO YET ? 
BRANCH TILL ALL READ 
WAS AN ERRO« FOUND ? 
BRANCH IF NOT 
CLEAR CARRY TO SHOW E^ROR 
AND EXIT 

SHOW GOOD COMPARE 
SETUP RAMSIZ FOR PRAK'KT ROUTI 
: RETURN 



RAM TO I/O CHARACTERISTICS DATA 



i * 



L4 



TSV3 - GLOBAL AREAS MACRO M1113 07-FEB-84 10:58 
CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS DATA 



SEQ 050 



1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 

1281 

1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 



011034 
011034 
011040 
011044 
011050 
011052 
011056 
011064 
011070 
011074 
011100 
011104 
011106 
011110 
011112 
011114 
011122 
011126 
011130 
011136 
011142 
011144 
011146 
011152 
011154 
011156 
011160 
011162 
011164 
011166 



012701 
012702 
005003 
004 737 
112765 
004737 
010265 
004737 
116511 
122124 
001401 
005203 
005202 
012737 
005737 
001407 
012737 
020227 
003750 
000403 
020227 
003744 
005703 
001402 
000241 
000401 
000261 
000207 



ROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM 

MEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 



INPUT; 



R4 
R5 



OUTPUT j 



CARRY 



ADDRESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 



SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 

THE TABLE RAMOATA IS FILLED WITH THE 

DATA HELD IN RAM, 

RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE 

SIDE EFFECT."*: 

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



CKRAM2 



002240 
0C0167 



016146' 

000000 000000 

016146' 10$: 

000000 

016146 1 

000000 



000010 002300 
002224' 

000012 002300 
000200 



000176 



205: 



25$ 

27$ 



30$ : 
50$: 



SAVREG 

MOV 

MOV 

CLR 

JSR 

MOVE 

JSR 

MOV 

JSR 

MOVB 

CMPB 

BEQ 

INC 

INC 

MOV 

TST 

BEQ 

MOV 

CMP 

Bl.E 

BR 

CMP 

BLE 

TST 

BEQ 

CL.C 

BR 

Si=C 

RTS 



GRAMDATA, Rl 

0RMCH8EG.R2 

R3 

PC.CHKTSSR 

40.TSD6CR5) 

PC.CHKTSSR 

R2.TSDBCR5) 

PC.CHKTSSR 

TSBACR5).(R1) 

(R1)»,(R4)* 

20$ 

R3 

R2 

08..RAMSU' 

EXTFEA 

25$ 

010.. RAMSIZ 

R2.*RMCHEND 

10$ 

27* 

R2.0RMCHEND-2 

10$ 

R3 

30$ 

50$ 

PC 



SAVE THE GENERAL REGISTERS 

ADDRESS TO SAVE THE RAN DA T A 

BYTE ADDRESS OF FIRS T RAM DATA 

CLEAR THE ERROR FLAG 

WAIT FOR SSR 

SET MAINTENANCE MODE 

WAIT FOR SSR TO SET 

SELECT NEXT RAM ADDRESS 

'."AIT FOR SSR TO SET 

READ THE RAM DATA 

COMPARE TO EXPECTED 

BRANCH IF OK 

SET ERROR FLAG 

ADDRESS OF NEXT RAM LOCATION 

ASSUME EXTFEA NOT SET 

IS THE SOFTWARE EXTENDED FEATURES SET 

BR, IF NOT SET 

SE'* RAMSI/ FOR EXTEND FEATURES 

AT END OF EXTENOED BUFFER 

BR. IF NO' AT END YET 

AT END BRANCH 

REACHED END YET ? 

BRANCH TILL ALL READ 

WAS AN ERROR FOUND ? 

BRANCH IF NOT 

CLEAR CARRY TO SHOW ERROR 

AND EXIT 

SHOW GOOD COMPARE 

RETURN 



TSV3 - GLOBAL AREAS 



CKMSG 'COMPARE WRITE CHART MESSAGE '6UFrt«i> 



MACRO m; 



M4 



07 -EH- 84 



10 j 56 



SEQ Obi 



1325 








1326 








1327 








1328 








1329 








1330 








1331 








1332 








1333 








1334 








1335 








1336 








1337 








1338 








1339 








1340 








1341 








1342 








1343 








1344 








1345 








1346 








1347 








1348 








1349 








1350 


011170 






1351 


011170 






1352 


011174 


010037 


002302' 


1353 


015 200 


010137 


002304' 


1354 


011204 


005737 


003132' 


1355 


011210 


001403 




1356 


011212 


004737 


017130' 


1357 


011216 


010001 




1358 


011220 


005004 




1359 


011222 


005003 




1360 


011224 


010205 




1361 


011226 


011264 


0023^0* 


1362 


01123? 


011164 


002464' 


1363 


01123b 


022221 




1364 


011240 


001401 




1365 


011242 


005203 




1366 


011244 


062704 


000002 


1367 


011250 


020427 


000014 


1368 


011254 


003764 




1369 


011256 


032765 


000200 000012 


1370 


011264 


001403 




1371 


011266 


020427 


000016 


1372 


011272 


003 755 




1373 


011274 


005703 




1374 


011276 


001402 




1375 


011300 


000241 




1376 


011302 


000401 




1377 


011304 


000261 




1378 


011306 


000207 




1379 








1380 








1381 









.SBTTL CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 

♦ 

ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPO AND RECV 
BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
i ERROR PRINT ROUTINES. 

I INPUT : 



; RO 
; Rl 
i R2 
OUTPUT; 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 



CARRY 



SET - MESSAGE BUFFERS MATCH 

CLP -MESSAGE BUFFERS DON* T MATCH 



IMPLICIT OUTPUT: 

EXPMSG 
RECMSG 
RCVHIADD 
RCVLOADD 



CKMSG: 



10$ 



15$ 



25$ 



50$ 



55$ 
60$ 



BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TC RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 



SAVREG 

MOV 

MOV 

TST 

BEQ 

JSR 

MOV 

CLR 

CLR 

MOV 

MOV 

MOV 

CMP 

BEQ 

INC 

ADD 

CMP 

BLE 

BIT 

BEQ 

CMP 

BLE 

TST 

BEQ 

CLC 

BR 

SEC 

RTS 



RO, RCVHIADD 
Rl.RCVLOAD 
KTENABLE 
10$ 

pc. setmap 
ro.ju 

R4 

R3 

R2 R5 

(R2),EXPMSG(R4) 

CRn,RECMSG(R4) 

(R2)*.CR1)+ 

25$ 

R3 

42. R4 

R4.014 

15$ 

4Xc\EXTF,XST2(R5 

50$ 

R4.416 
15$ 
R3 
55$ 

60$ 

PC 



SAVE R1-R5 UNTIL NEXT RETURN 
SAVE RECV HIGH ADDRESS 
SAVE RECV LOU ADDRESS 
TESTING ABOVE 28K? 
BR IF NO 

RETURN ADDRESS BIASED TO PAR6 IN RO 
GET RETURNED ADDRESS BIASED TO PAR6 
WORD IN BUFFER 
CLEAR ERROR SEEN FLAG 
GET EXPD BUFFER ADDRESS 
SAVE EXPD FOR ERROR REPORT 
SAVE RECV FOR ERROR REPORT 
EXPD EQUAL RECV? 
BR IF YES 

SET ERROR SEEN FLAG 
POINT TO NEXT WORD ADDRESS 
DONE FIRST 7 WORDS? 
BR IF NO 
> i IS EXTENDED FEATURES SET IN EXPD? 
BR IF NO 

DONE EXTENDED FEATURES WORD? 
BR IF NO 
ANY ERRORS SEEN? 
BR IF NO 
SET FAILURE 

SET SUCCESS 
RETURN 



.SBTTL CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 



N4 



TSV3 



MACRO M1113 



CKMSGP 


- COMPARE EXPD 


RECV MES 


1382 








1383 








1384 








1385 








13*56 








1387 








1388 








1389 








1390 








1391 








1392 








1393 








1394 








1395 








1396 








1397 








1398 








1399 








1400 








1401 








1402 








1403 








1404 








1405 








1406 








1407 








1408 


011310 






1409 


011310 






1410 


011314 


020327 


000144 


1411 


011320 


003412 




1412 


011322 


012703 


000144 


1413 


011326 








011326 


012746 


011442' 




011332 


012746 


000001 




011336 


010600 






011340 


104417 






011342 


062 706 


000004 


1414 


011346 


010037 


002302' 


1415 


011352 


010137 


002304' 


1416 


011356 


005737 


003132' 


1417 


011362 


001403 




1418 


011364 


004737 


017130' 


1419 


011370 


010001 




1420 


011372 


005004 




1421 


011374 


005005 




14^2 


011376 


111264 


002320' 


- 1423 


011402 


111164 


002464* 


1424 


011406 


122221 




1425 


011410 


001401 




1426 


011412 


005205 




1427 


011414 


062704 


000001 


1428 


011420 


020403 




1429 


011422 


002001 




1430 


011424 


000764 




1431 


011426 


005705 




1432 


011430 


001402 




1433 


011432 


000241 





07-FEB-84 

BUFFERS 



10} 58 



SEQ C52 



ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 



INPUT: 



RO 
Rl 
R2 
R3 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MHSSAGE SUFFER ADDRESS 
NUMBER OF BYTES TO COMPARE 



OUTPUT j 



CARRY 



SET - MESSAGE BUFFERS MATCH 

CLR - MESSAGE BUFFERS DON'T MATCH 



IMPLICIT OUTPUT: 

EXPMSG 
RECMSG 
RCVHIADD 
RCVLOADD 



BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 



CKMSU2* 



S$: 



10$ 
15$ 



25$ 



50$ 



SAVREG 

CMP . 

BLE 

MOV 

PR1NTF 

MOV 

MOV 

MCV 

TRAP 

ADD 

MOV 

MOV 

TST 

BEQ 

JSR 

MOV 

CLR 

CLR 

MOVB 

MOVB 

CMPB 

BEQ 

INC 

ADD 

CMP 

BGE 

BR 

TST 

BEQ 

CLC 



R3.4RECMSG-EXPMSG 

5$ 

4RECMSG-EXPMSG.R3 

OOEBUGMSG ; 

*DE8UGMSG,~CSP) 

U.-CSP) 

SP.RO 

CIPNTF 

04.SP 

RO.RCVHIADD 

Rl.RCVLOAD 

KTENABLE 

10$ 

PC.SETMAP 

R0,R1 

R4 

R5 

(R2),EXPMSG(R4) 

CR1),RECMSG(R4) 

25$ 

R5 

01.R4 

R4.R3 

50$ 

15$ 

15 

55$ 



SAVE Rl-j.5 UNTIL NEXT RETURN 

;o>30 IS COUNT ABOVE MAX ALLOWED? 

o»SD BR IF NO 

;S5)0 

5)SD 



j SAVE RECV HIGH ADDRESS 

{SAVE RECV LOW ADDRESS 

i TESTING ABOVE 28K? 

jB'} IF NO 

jRtlTURN ADDRESS BIASED TO PAR6 IN RO 

iG'iT RETURNED ADDRESS BIASED TO PAR6 

jWJRO IN BUFFER 

} CLEAR ERROR SEEN FLAG 

I SAVE EXPD FOR ERRGR RF.PORT 

j SAVE RECV FCR ERROR REPORT 

j EXPD EQUAL RECV? 

jBR IF YES 

:SET ERROR SEEN FLAG 

jPCINT 10 NEXT BYTE 

{DONE ALL BYTES? 

I BR IF YES 

:D0 NEJ'T BYTE 

{ANY ERRORS SEEN? 

{BR if NO 

{SET FAILURE 



B5 



TSV3 - 

CKMSG2 



GLOBAL AREAS 
- COMPARE EXPO 



1454 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1445 
1444 
1445 
1446 
1447 
144© 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1456 
1459 
1460 

1461 
1462 
1463 



1464 
1465 
1466 

1467 

i46e 

1469 

1470 
1471 
147? 
1473 
1474 
1475 
1476 

1477 
1470 
1479 
1480 



1*81 
1482 

1483 
1484 



MACRO MH13 
RECV MESSAGE 



011434 
011436 

011440 

011442 
011532 
011545 
011576 
011631 



011644 
011644 
011644 
011650 
011654 
011654 
011654 



011656 
011656 
011656 
011662 
011666 
011672 
011672 
011672 



000401 
000261 
000207 

120 
045 
040 
056 
124 



122 
116 
040 
056 
105 



07-FEB-84 10558 

BUFFERS 

BR 

55$ t SEC 
60$: RTS 

117 DEBUGMSG: 
045 FERCMj .ASCII 
124 ERCMr .ASCIZ 
056 EIMSG: .ASCI* 
123 TINERRi .ASCIZ 
.EVEN 



SEQ 053 



004737 
004737 



104423 



005654' 

01701*' 



004737 

012700 
004757 



104425 



005654' 
000004 

007200* 



60$ 

PC 



I SET SUCCESS 
iRETURN 



.ASCIZ 'PROGRAM INTERNAL ERROR -CKM5G2 MESSAGE BUFFER EXCEEDED- ' >S80 

/«N*A •**/ 

/ TSSR ERROR CODE REC'D • / 

/.... AFTER DOING SOFT INIT/ 

/TEST; ,../ 



PRINT ROUTINE TO FATAL SOFT INIT ERRORS 
INPUT: 

Rt CONTENTS OF TSSR AT ERROR 
SIDE EFFECTS: 

EXECUTES DROP WIT TO CEASE TESTING 



SFIMSG: : 



BGNMSG SFIMSG 



L10003: 



JSR 
JSR 
ENOMSG 

TRAP 



PC.PRITSSR 

PC.CKDROP 



C$MSG 



iPRINT CONTENTS OF TSSR REGISTER 
l DROP UNIT, IF ALLOWED 



PRINT ROUTINE TO PRINT THE CONTENTS OF 

TSSR AND A COMMANO PACKET OTHER THAN GET STATUS COMMAND PACKET, 



INPUTS: 



Ri 
R4 



TSSR CONTENTS 

ADDRESS OF COMMANO PACKET 



BGNMSG PKTSSR 



PKTSSRm 




JSR 


PCPRITSSR 


MOV 


•4.R0 


JSR 


PC.PRIPKT 


ENOMSG 




L 10004: 





iPRTNT THE CONTENTS Of TSSR REGISTER 

I NO OF WORDS IN PACKET 

iPRINT THE CONTENTS OF COMMAND PACKET 



TRAP 



CIMSu 



jPRINT ROUTINE TO PRINT THE CON r ENTS OF 
I TSSR AND A GET STATUS CQMMANC PACKET, 



C5 



28&i GL0 ?Mi rt £x PD i&Pffc&Aag B^rPi- 84 10!W 



SEQ 054 



1485 

I486 

1487 
1488 
1489 
1490 
1491 
1492 
1493 

1494 

1495 
1496 
1497 



1*98 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 

1510 
1511 



1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
152? 
1523 
1524 
1525 
1526 
1527 

1528 
1529 

1550 
1531 
1532 



011674 
011674 
011674 
011700 

011704 
011710 
011710 
011710 



011712 
011712 
011712 
011716 
011716 
011716 



011720 
011720 
011720 
011724 
011726 
011730 
011734 
OU734 
011734 



INPUTS : 



004737 005634' 
012700 000002 
004737 007200' 



104423 



Rl 

R4 



BGNMSG 

PKTGETSi: 

JSR 
MOV 
JSR 
ENOMSG 

L 10005; 

TRAP 



TSSR CONTENTS 

ADDRESS Or COMMAND PACKET 



PKTGETS 

PC.PRITSSR 
02. RO 

PC.PRIPKT 



CIMSG 



iPRINT THE CONTENTS OF TSSR REGISTER 
iNO. OT WORDS IN GET STATUS PACKET 
l PRINT THE CONTENTS OF COMMAND PACKET 



PRINT TSSR ERRORS FOR INITIALIZATION TESTS 
INPUTS; 



Rl 
R4 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



004737 0C5634 



104423 



SFFMSG;; 



L 10006; 



BGNMSG SFFMSG 

JSR PC.PRITSSR 
ENOMSG 



»PRIK«T CONTENTS OF TSSR REGISTER 



TRAP 



CIMSG 



.SBYTL PKTMES - PRINT TSSR ANO MESSAGE BUFFER 



PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR ANO MESSAGE 
BUFFER FOR ERROR REPORTS 



INPUTS: 



Rl CONTENTS OF TSSR 

R2 LOW ORDER MESSAGE BUFFER 

R3 HIGH ORDER MESSAGE BUFFER ADDRESS 

NOTE; R3 IS IGNORED IF KTENABLfc. FLAG IS CLEAR 



BGNMSG PKTMES 



004737 005634* 

010200 

010301 

004737 014052* 



104423 



PKTMES!! 




JSR 


PC.PRITSSR 


MOV 


R2.R0 


MOV 


R3.R1 


JSR 


PC.PRMESS 


ENOMSG 





iPRINT CONTENTS OF TSSR 

l LOW ORDER ADORESS 

i HIGH ORDER ADDRESS 

I PRINT THE MESSAGE BUFFER 



UQQ07t 



TRAP 



CtMSG 



TSV3 
PKTMES 

1533 
1534 
1535 
1536 
1537 
1539 
1539 

1540 
1541 
1542 

1543 
1544 
1545 
1546 
1547 

15*8 
1549 
1550 
1551 



.1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1361 
1562 
1563 
1564 
1565 
1566 

1567 
1568 
1569 

1570 
1571 
1572 



1573 
1574 
1575 
1576 
lb77 
1578 
1579 
1580 
1581 
1582 
1583 



GL M& AND^M^FF&T^ 10{5ft 



D5 



SEQ 055 



.SBTTL ADOSSR 



PRINT TEST ADDRESS AND TSSR 



PRINT ROUTINE TO PRINT THE CONTENTS OF 
TSSR AND A MEMORY TEST ADDRESS 



INPUTS: 



R5 FIRST DEVICE UNIBUS ADDRESS 
ERRHI HIGH ORDER MEMORY TEST ADDRESS 
ERRLO LOW ORDER MEMORY TEST ADDRESS 



011736 
011736 
011736 
011742 
011746 
0117S2 
01175? 
01175* 



004737 010104 * 
016501 000002 
004 737 005634* 



104423 



ADDSSRjj 



BGNMSG ADDSSR 



L10010: 



JSR 
MOV 
JSR 
ENOMSG 

TRAP 



PC.r nT^DD 

TSShiALs.Pl 

PC.PRITSSR 



CIMSG 



iPRINT MEMORY TEST ADDRESS 

iGET CURRENT TSSR 

iPRINT THE CONTENTS OF TSSR REGISTER 



011754 
011754 
011754 
011760 
011764 
011766 
011772 
011776 
011776 
011776 



. SBTTL MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 

t 

PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRE5S 



012700 000007 

005737 002224 
001402 

012700 000010 

004737 014362 



104423 



MSGEXP j 



BGNMSG MSGEXP 



lASSUKE NO EXT FEATURES 

lEXT FEATURES SET? 

I BR IF NO 

lEXT FEATURE BUFFER IS 8 WORDS 

»PRINT EXPD/RECV MESSAGE BUFFERS 



PRINT FIFO EXP/RECV DATA 

» 

PRINT ROUTINE. TO PRINT FIFO EXP/RECV DATA 

Rl - BYTE COUNT 
IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 





MOV 


♦ 7.R0 




TST 


EXTFEA 




BEQ 


51 




MOV 


♦6. .RO 


5$: 


JSR 

ENOMSG 


PC.PRMSGEXP 


L10011: 








TRAP 


CIMSG 




.SBTTL 


FIFEXP - P 



TSV3 - GLOBAL AREAS MACRO M1113 07-FEB-84 10:58 
MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 



F5 



SEQ 057 



1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
162 7 
1628 
1629 
1630 
1631 
1632 
3633 
1634 
1635 
1636 
1637 
1638 
1639 
.1640 
1641 
1642 

1643 
1644 
1645 
1646 



1647 
1648 
1649 
1650 



1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
l6 r -9 
1660 
1661 
1662 
1663 
1664 
IG'.V, 

16m 

166/ 



012222 
012240 
012302 
012373 
012464 
012555 
012617 



0126/4 
012674 
012674 
012700 
012702 
012704 
012704 
012706 
012712 
012714 
012716 
012722 
012724 
012730 
012734 
012734 
012734 

012736 
012756 
013031 
013130 
013227 
013326 
013425 
013524 



012240 
045 
045 
045 
045 
045 
045 



012302 
116 
116 
116 
116 
116 
116 



012373 
045 
045 
045 
045 
045 
045 



012701 012736' 

012100 

001410 

010046 

012746 000001 

010600 

104415 

062706 000004 

000766 

012700 000012 

004737 014362' 



104423 

012756' 013031' 013130 



045 
045 
045 
045 
045 
045 
045 



116 

116 
116 
116 
116 
116 
116 



045 
045 
045 
045 
045 
045 
045 



STATCOD: 
II:. ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
, ASCIZ 
• ASCIZ 



2$ 
3* 
4$ 
5$ 

6$ 



.WORD 
*N*A Tope 
*N*A 
*N*A 
*N*A 
*N#A 
*N*A 



11,29, 3t a 4t ( 5t,6l a 



Tape 



bus Signals 
PARERR<15> 
IRESV2<14> 
XRESV1<13> 

Bus Signals 
DATMIS<7> 



.EVEN 



in Word #8:' 

IEOT <12> 

IIDENT<11> 

1CER <10> 
in Uord 09: ' 
ILW<6> 0UTRDY<5> 



IFMK <9> 
IHER <8> 
ISPEED<7> 



IRDY<6> 
I0NL<5> 
ILDP<4> 



IRWD<2>' 
IF3Y<1>' 
IFPT<0>' 



INRDY<4> 



,SBTTL MSGLOOP - PRINT LOQPBACK HEADER AND MESSAGE BUFFERS 

PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
IMPLICIT INPUTS; 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRRSS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADOPTS 



BGNMSG 

MSGLOOP:: 

MOV 



10$: 



20$: 



L10014 



MOV 

BEQ 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

MOV 

JSR 

ENOMSG 



MSGLOOP 

*LOOPCOD,R1 

CR1)».R0 

20$ 

RO 

RO.-(SP) 

•1,-CSP) 

SP.RO 

C$PNTX 

♦4.SP 

10$ 

•10. ,R0 

PC.PRMSGEXP 



lASCII ADDRESS T.tBLE 
iDONE ALL MSG LTNFS? 
I BR IF YES 
jPRINT STATUS BIT NAMES 



iDO ANOTHER M'X- LINE 

iNUIBER 0" WORDS IN A READ STATUS BUFFER 

j PRINT EXPD/RECV MESSAGE BUFFERS 



TRAP 



C$MSG 



LOOPCOO: 
II:. ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCTZ 
.ASCIZ 

.A'iCIZ 
, ASCIZ 



2f 
31 

41 
5$ 

6$ 



*N*A 

*N*A 
#N#A 
*N*A 
*N*A 
*N*A 
*N*A 



WORD 
Tap* 

PARERR<15> 
IHISP->IE0T<12> 
IWFM ->IFMK<09> 
ITAD0->IRDY<06> 
IREW ->IDBY<03> 
IGO ->IFPT<00>* 



l$,2$.3$,4$,5$ 4 6i,7$ 4 
Bus Loopback Signals in Word 08 

IRESV2*14> 
IWRT->IIDENT<11> 
IEDIT-vlHER <08> 
ITAD1->I0NL <05> 
IRWU ->IRWD <02> 



IRESV1<13> 
IREV ->ICER <10> 
IFAD ->ISPEED<07> 
IERASE->ILDP <04> 
IFEN ->IFBY <01> 



.EVEN 



.SlRTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 

j 

j PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 



G5 



TSV3 - GLOBAL AREAS MACRO M1113 07-FEB-64 10!58 
MSGSU6 - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 



SEQ 058 



166d 

1669 
1670 
1671 
1672 
1673 
1674 
1675 

1676 
1677 
1678 



16 ?9 
1680 
1681 
1682 
1633 
1684 

1685 
1686 
1687 
1688 
1689 
1690 
16«>i 
1692 
1693 
1694 
1695 
1696 

1697 
1698 
1699 
1700 
1701 



1702 
1703 
1704 
1705 
.1 706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
171 r > 
17 If- 
1/1/ 
1718 



013552 
013552 
013552 
013556 
013562 
013562 
013562 



IMPLICIT INPUTS t 



EXPMSC - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



012700 000012 
004737 014362' 



104423 



MSGSU6;} 



BGNMSG MSGSUB 



L10015: 



MOV 
JSR 
ENDMSG 

TRAP 



*10.,R0 
PC.PRMSGEXP 



CJMSG 



5 SIZE OF WRITE SUBSYSTEM BUTFER 
i PRINT EXPO/RECV MESSAGE BUFFERS 



013564 
013564 
013564 
013570 
013574 
013600 
013604 
013604 
013604 



.SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 

PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 
IMPLICIT INPUTS: 

ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 

ERRLO - MEMORY ERROR LOW ORDER ADDRESS 

EXP - EXPECTED DATA 

RECV - RECEIVED DATA 



004737 007770 

013701 002230 

013702 002232 
004737 007552 1 



104423 



MEMADD: 



BGNMSG MEMADD 



L 10016 : 



JSR 
MOV 
MOV 
JSR 
ENOMSG 

TRAP 
, SBTTL 



PC»PWIADD 

EXP0.R1 

MCCV.R2 

PCPRIXOR 



jPRINT MEMORY ADDRESS IN ERROR 
iGET EXPD DATA 
jGET RECEIVED DATA 
I PRINT EXPD/RECV 



CiMSG 

PRAMPKT - PRINT RAM AND PACKET DATA 



PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
WHEN THE RAM DATA DOES NOT MATCH. 

INPUTS: 

R4 POINTER TO COMMANO PACKET 

IMPLICIT INPUTS: 



RAMOATA 
RAMSIZ 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ-0 THEN DEFAULT TO 8, 



TSV3 - GLOBAL AREAS 
PRAMPKT - PRINT RAM AND 



1719 
1720 
1731 

1722 
1723 
1724 
1725 
1726 
1727 
172tt 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 



1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
174 7 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 



013606 

013606 

013612 

01.3616 

013620 

013622 

013624 

013634 

013636 

Cls3642 

013646 

013656 

013662 

013670 

013676 

013676 

013700 

013704 

01371C 

013712 

013716 

013722 

013724 

013726 

013732 

01373 

013740 

013742 

013746 

013750 

013752 

013756 

013760 

013764 

013766 



012701 
005002 
122124 
001005 

000436 
116105 
116403 

042703 
116137 
116437 

010346 
013746 
013746 
010246 
012746 
012746 
010600 
104414 
062706 
005202 
005737 
001404 
020237 
003724 
000403 
020227 
002720 
005037 
000207 

045 



MACRO MillS 
PACKET DA) A 



07-FEB-84 10:58 

l IMPLICIT OUTPUTS t 

! RAMSIZ SET TO 



H5 



SEQ 059 



002240 ' 



177777 
177777 

177400 
1777V7 
177777 



002230 
002232 

013766 
000005 



000014 
002300 
002300 

OOO010 
002300 

116 



002232' 
002230' 



PRAMPKT: 



5$ 



7$ 



SAVREG 

MOV 

CLR 

CMPB 

BNE 



*RAMDATA,R1 
R2 

CR1)*.(R4)» 
7$ 



FORCERROR 



10$ 



15$ 
20 $ 
25$ 



045 RAMASC; 



J * 



BR 

MOVB 

MOVB 

XOR 

BIC 

MOVB 

MOVB 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MCV 

MOV 

MOV 

TRAP 

HDD 

INC 

1ST 

BEQ 

CMP 

BLE 

BR 

CMP 

BLT 

CLR 

RTS 

.ASCIZ 

.EVEN 



7$,N0TSSR 



10$ 

-1CRD.R5 

-1<R4),R3 

R5.R3 

$177400, R3 

-1CR1),RECV 

-1(R4),EXPD 

♦RAMASC, R2,RECV,EXPD,R3 

R3,-CSP) 

EXPD.-CSP) 

RECV.-CSP) 

R2.-CSP) 

OfcAMASC.-(SP) 

♦5,-CSP) 

SP.RO 

C»PNTB 

#14, SP 

R2 

RAMSIZ 

15$ 

P?, RAMSIZ 

5$ 

25$ 

R2,*8. 

5$ 

RAMSIZ 

PC 



i SAVE R1-R5 UNTIL NEXT RETURN 

jOATA FROM THE RAM 

jINIT BYTE NUMBER 

i COMPARE EXPECTED, RECEIVED 

I BR IF NO MATCH 

(BSD 

»GET RECV RAM DATA 

jGET EXPD PACKET DATA 

» XOR EXPD/RECV 

jLOW BYTE ONLY 

iGET RECEIVED RAM DATA 

{GET EXPECTED RAM DATA 



jUPOATE BYTE COUNT 
jDEFALLT TO 8.? 
jBR IF YES 
iOONE ALL BYTES? 
j BR IF NO 

I 

i DONE DEFAULT NUMBER OF BYTES? 

j BR IF NO 

I SET DEFAULT RAMSIZ 

iRETURN 



UNKA BYTE: *D2«A RAM: *03*A Packet: *03*A XORj^'i.; 



.SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 



j THIS ROUTINE PRINTS THE CONTENTS OF 

|TH£ 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE 



LOW ORDER ADDRESS OF MESSAGE BUFFER 



J 


TSV-05 


• 


1 

I 


INPUT: 




I 

1 
1 
1 
I 




RO 
Rl 
NOTE: 



HIGH ORDER ADDRESS OF MESSAGE BUFFER 
Rl IS IGNORED IF KTENABLE FLAG IS CLEAR 



I THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



X 



5 



TSV3 - GLOBAL AREAS MACRO M1113 07-FEB-84 10 , 

PRHESS - PRINT CONTENTS OF MESSAGE BUFFER 



SEQ 060 



1767 
1768 
1769 
1/70 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 



1780 



1781 
1782 
1783 
1784 
1785 
1786 
1787 



1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 



014052 
014052 
014056 
014060 
014064 
014066 
014070 
014072 
014074 
014076 
014076 
014100 
014102 
014106 
014112 
014114 
014116 
014122 
014122 
014126 
014132 
014134 
014136 
014142 
014144 
014146 
014150 
014152 
014156 
014160 
014160 
OH 162 
014164 
014170 
014174 
014176 
0142O0 
0142O4 
014206 
014212 
014214 
014216 
014224 
014226 

014230 
014275 
014333 



010005 
005737 
001001 
005001 
010103 
006100 
006101 

010546 
010146 
012746 
012746 
0106(0 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
005004 
010501 
010300 
001400 
004737 
010005 

012546 
010446 
012746 
01274e 
010600 
104415 
062706 
005204 
020427 
003005 
002761 
032763 
001355 
000207 

045 

045 
045 



I - 



PRMESS: 



003132 



10$ 



014230 
000003 



OOOOIO 

014275 
000001 



000004 



017130 1 



014333' 
0*X>003 



OC0010 
000007 

000200 000012 



20$ 



116 
116 
116 



045 
045 
045 



50$ j 

PROASC: 
PR1ASC: 
PRASC; 



SAVREG 

MOV 

TST 

BNE 

CLR 

MOV 

ROL 

ROL 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

CLR 

MOV 

MOV 

Bra 

JSR 

MOV 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

INC 

CMP 

BGT 

BLT 

BIT 

BNE 

RTS 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 



R0,R5 

KTENABI E 

10$ 

Rl 

RI.R3 

RO 

Rl 

OPROASC, R1.R5 

R5.-CSP) 

Rl.-(SP) 

*PROASC,-(SP) 

♦3,-CSP) 

SP.RO 

CIPNTX 

♦10, SP 

♦PR1ASC 

♦PRIASC^CSP) 

#1.-(SP) 

SP.RO 

C$PNTX 

04.SP 

R4 

R5.R1 

R3.R0 

20$ 

PC, SEMAP 

R0.R5 

♦PRASC, R4.CR5)* 

(R5)*, -(SP) 

R4.-CSP) 

♦PRASC, -CSP) 

♦3,-(SP) 

SP.RO 

C$PNTX 

♦10.SP 

R4 

R4.*7 

50$ 

20$ 

♦X2.EXTF.XST2CR3 

20$ 

PC 



j SAVE THZ REGISTERS 

I SAVE LOW ORDER ADDRESS 

I ADDRESS ABOVE 28K? 

»BR IF YES 

jSET HIGH ORDER ADDRESS TO 

j SAVE HIGH ORDER ADDRESS 

jSHIFT BIT15 TO C BIT 

I SHIFT TO HIGH ORDER FOR PRINTOUT 

jPRINT MESSAGE BUFFER ADDRESS 



I PRINT HEADER FOR CONTENTS 



j NUMBER OF THE NEXT WORD 

;COPY LOW ORDER ADDRESS 

I COPY HIGH ORDER ADDRESS 

j BR IF NOT ABOVE 28K 

i SETUP PAR ADDRESS IN RO 

iGET PAR FORMAT ADDRESS ABOVE 28K 

j PRINT THE CONTENTS OF MEMORY BUFFER 



iNUMBER OF THE NEXT 

I DONE ALL YE1 ? 

I BRANCH IF ALL DONE 

jPRINT FIRST 7 WORDS 

)jEXTENOED FEATUTES ON ? 

jPRINT EXTENOED STATUS WORD 

I RE TURN 



*N*A H**#©g* Buffer Addr«n» - 
#N«A M«s«ae« Buffer Contents.* 
*N*A Word*DUA; *0 4 



*0l*05' 



.SBTVL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 



J ♦ 

J 



jROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 



J5 



TSV3 GLOBAL AREAS MACRO M1113 07-FEB-84 10:53 
PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 



SEQ 061 



1805 
1006 
1807 
1808 
1809 
1810 
1811 
181c? 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 



1824 



1825 
1626 
1827 
1823 
18c9 
1830 
1831 



1832 
1S33 
1834 
1835 
1836 
183/ 
1838 
1839 
1&4G 



014362 
014362 
0143u6 
014*70 
014374 
014376 
014*02 
014404 
014406 
014406 
014410 
014412 
014416 
014422 
014424 
014426 
014432 
014432 
014436 
014442 
014444 
014446 
014452 
014454 
014460 
014464 
014466 
014470 
014500 

oust? 

014502 
014504 
014 506 
014510 
014514 
014520 
0X4522 
014524 
014550 
014532 
014534 
014536 
014540 

014542 
014607 

014045 



010005 
013700 
010004 
013701 
006100 
006101 

01044* 
010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
005004 
012701 
0127<;2 
011100 
011203 



010*46 

012246 
012146 
010446 
01270* 
012746 
010600 
104415 
062706 
005204 
020405 
002001 
000752 
000207 

045 
045 
045 



RO - NUMBER OF WORDS IN BUFFRP 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORCF.R ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



002304' 
002302' 



014542 
000003 



OOOOIO 

014607 
000001 



000004 

002320 
002464 



014645 

000005 



000014 



PRMSGEXP:? 

SAVREG 

MOV 

MOV 

MOV 

MOV 

ROL 

ROL 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

CLR 

MOV 

MOV 

20$; MOV 
MOV 
XOR 

PRINTX 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADO 
INC 
CMP 
BGE 
BR 

501- RTS 



R0.R5 

RCVLOADD, RO 

R0.R4 

RCVHIADD ,Rl 

RO 

Rl 

*PRMSG0,R1,R4 

R4,-CSP) 

Rl.-CSP) 

•PRMSGO,-CSP) 

♦3,-CSP) 

SP.RO 

CIPNTX 

♦10. SP 

0PRMSG1 

OPRMSGl.-CSP) 

•1,-CSP) 

5P.R0 

CIPNTX 

*4,SP 

R4 

♦LXPMSG.R1 

♦RECMSG, R2 

CRD.RO 

(R2).R3 

R0,R3 

#PRMSG2,R4,(RD* 

R3.-CSP) 

(R2)*,-(SP) 

(Ri)*.-(SP) 

R4, -(SP) 

*PRM5G2,-C5P) 

05, (SP) 

SP.RO 

CIPNTX 

•J4.SP 

R4 

R4.R5 

50* 

20$ 

PC 



j SAVE R1-R5 UNTIL NEXT RETURN 

tSAVE NUMBER OF WORDS 

iGET RECV LOW ADDRESS 

;COPY LOW ADDRESS 

jGET RECV HIGH ADDRESS 

i SHIFT BIT15 TO C BIT 

I SHIFT TO HIGH ORDER FOR PRINTOUT 

j PRINT MESSAGE BUFFER ADDRESS 



j PRINT HEADER FOR CONTENTS 



I NUMBER OF THE CURRENT WORD 

iGET EXPD BUFFER ADDRESS 

jGET RECV BUFFER ADDRESS 

jGET EXPD 

iGET RECV 

I XOR EXPD/RECV 

,<R2)*.R3 



jNUHHER OF THE NEXT 
j DONE ALL YET? 
j9R IF YES 
j 00 ANOTHER 
I RETURN 



116 
116 
116 



045 PRMSGO 
045 "HMSG1 
045 PRMSG2 



.A5CIZ 
.ASCI? 
.ASCIZ 



■KWA 
•rfNtfA 



M«ssao« Buffer 
Messap* Buffer 
WORD fr*D2*A 



Atkir«»9 
Contents: ' 
EXPD j *06WA 



*0l*OS 



RECV: *06*A XOR: *06 



I<5 



I3V3 - GLOBAL AREAS MACRO M1113 07-FEB-84 10:S6 
PRMSGEXP - PRINT tXPD/RECV MESSAGE BUFFERS 



SEQ 062 



1841 








1842 








1843 








1844 








1845 








1846 








1847 








1848 








1849 








1850 








18S1 








1852 








1853 








1854 








1855 








1856 


014732 






1C57 


014732 






.1.858 


014736 


010005 




1859 


014740 


005037 


002316' 


1860 


014744 


005004 




1861 


014746 


012701 


002320' 


1862 


014752 


012702 


002464' 


1863 


014756 


111100 




1864 


014760 


042700 


177400 


1865 


014764 


110037 


015300' 


1866 


014770 


111203 




1867 


014772 


042703 


177400 


1868 


014776 


110337 


015302' 


1869 


015002 






1870 


015012 


122122 




1871 


015014 


001431 




187? 


015016 


005237 


002316' 


1873 


015022 


023727 


002316* 000010 


1874 


015030 


101023 




1875 


015032 








015032 


010346 






01*3034 


013746 


015302 




015040 


013746 


015300' 




015044 


010446 






015046 


012746 


015146' 




015052 


012746 


000005 




015056 


010600 






015060 


104415 






015062 


062706 


000014 


1876 


015066 






1877 


015076 


000404 




1878 


015100 






1879 


015100 






1680 


015110 






1881 


015110 


005204 




1882 


015112 


020405 




1883 


015114 


002001 




1884 


015116 


000717 




1885 


015120 








015120 


013746 


002316' 




015124 


012746 


015233' 




015130 


012746 


000002 



.EVEN 

.SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 

ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 

ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 

RO - NUMBER OF BYTES IN BUFFER 

IMPLICIT INPUTS: 





EXPMSG 


- EXPECTED MESSAGE BUFFER 




RECMSG 


- RECEIVED MESSAGE BUFFER 


PRBYTEXP:: 








SAVREG 




SAVE R1-R5 UNTIL NEXT RETURN 




MOV 


R0,R5 


SAVE NUMBER OF BYTES 




CLR 


PRMNO i 


INIT ERROR COUNT 




CLR 


R4 


NUMBER OF THE CURRENT BYTE 




MOV 


0EXPMSG,R1 


GET EXPO BUFFER ADDRESS 




MOV 


♦RECMSG. R2 


GET RECV BUFFER ADDRESS 


20$: 


MOVB 


TRD.RO 


GET EXPO BYTE 




BIC 


OtC<377>,RO 


CLEAR UPPER BYTE 




MOVB 


RO,PRBEXP 


SAVE FOR ERROR REPORT 




MOVB 


(R2).R3 


GET RECV BYTE 




BIC 


OtC<377>,R3 


CLEAR UPPER BYTE 




MOVB 


R3,PRBREC 


FOR ERROR RE D ORT 




XOR 


R0,R3 


XOR EXPD/RECV 




CMPB 


(R1)*,(RP?* 


EXPO - RECV? 




BEQ 


30$ 


BR IF YES 




INC 


PRMNO 


UPDATE i:RROR COUNT 




CMP 


PRMNO, *8. 


PRINTED 8? 




BHI 


30$ 


BR tf YES 


27$: 


PRINTX 


♦PRBMSG . R4 , PRBEXP , PRBREC . R3 




MOV 


R3.-CSP) 






MOV 


PRBREC.-CSP) 






MOV 


PP3EXP,~(SP) 






MOV 


R4.-CSP) 






MOV 


♦PRBMSG.-(SP) 






MOV 


♦5,-CSP) 






MOV 


SP.RO 






TRAP 


CI»NTX 






ADO 


♦14, SP 






FORCEXXT 50$ 


tSWO 




BR 


35$ 


aao 


30<: 










FORCERROR 27$,N0TSSR 


sso 


35$: 






3&D 




INC 


R4 


NUMBER OF VHE NEXT 




CMP 


R4.R5 


iDONE ALL YET? 




BGE 


50 i 


BR IF YES 




BR 


20$ 


DO ANOTHER 


50$: 


PRINTX 


OPRBTOT, PRMNO 


j PRINT TOTAL ERROR COUNT 




MOV 


PRMNO, -CSP) 






MOV 


OPRBTOT, -CSP) 






MOV 


02, -(SP*) 





L5 



TSV3 GLOBAL AREAS MACRO M1113 07-FEB-84 10:56 
PRBYTEXP - PrUNT ERROR BYTES IN EXP/REC MESSAGE BUFFER 



SEQ 0<>3 



1886 
1887 
1888 
1C89 
1890 
1891 
1892 
1893 
1894 
189S 
1896 
1397 
1898 
1899 
1900 
.1901 
1902 
1903 
1904 
1905 
1906 

1907 
1908 



1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1018 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 

192 «' 

1928 



1929 

1930 
1951 
1932 
1933 



01513* 
015136 
015140 
015144 

015146 
015233 

015300 
015302 



015304 
015304 
015304 
015310 
015310 
015310 



015312 
015312 
015312 
015316 
015316 
01551u 



010600 

104415 

062706 000006 

000207 



MOV 


SP 4 RO 


TRAP 


C$PNTX 


ADD 


*6,SP 


RTS 


PC 



04 S 
045 

000000 
000000 



116 
116 



045 PRBMSG; .ASCI2 
045 PRBTOT: .ASCIZ 
.EVEN 
PRBEXP; .WORD 
PRBREC: .WORD 



{RETURN 

'*N*A BYTE **D2*A EXPD: *03*A RECV: 403KA XQR; *03* 
'*N«A NUMBER OF BYTES IN ERROR « *D2' 



j EXPO 

iRECV 



.SBTTL EXPREC - PRINT EXPD/RECV WORD DATA 



} * 



{PRINT ROUriNE TO DISPLAY EXPD/RECV DATA 
INPUTS: 



Rl 
R2 



RECEIVED DATA 
EXPECTED DATA 



l - 



004737 007552 



104423 



EXPREC:: 



L10017: 



BGNMSG EXPREC 

JSR PC.PRIXOR 
ENOMSG 



{PRINT THE DATA 



TRAP 



C$MSG 



.SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 
PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 



INPUTS: 



Rl 
R2 



RECEIVED DATA dYTE 
EXPECTED DATA BYTE 



00^73/ 307422' 



104423 



BGNMSG EXPBREC 
EXPBREC: : 

JSR PC.PRIBXOR 

ENDMSG 
L 10020: 

TP.AP CiMSb 



{PRINT THE DATA 



.SBTTL RAMERR - PRINT RAM AND PACKET DATA 



T5V3 - 
RAMERR 

1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
19*2 

1943 
1944 

1945 
1946 
1947 
1948 
1949 
195C 
1951 

1953 

1954 
1955 



195b 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
197! 
1972 
1973 
1974 
1975 
1976 
1977 
19/8 
1979 
1980 

1901 

1982 
1983 



GLOBAL AREAS MACRO Ml 113 
- PRINT RAM AND P J<ET DATA 



015320 
U15320 
015320 
015324 
015324 
015324 



004737 013606' 



104423 



1984 



015326 

015323 

015326 004737 010104' 

015332 004737 013606' 

015336 

015336 

015336 104423 



M5 



07-FEB-84 10:58 



i * 



SEQ 064 



PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 

\ INPUTS : 
i 

R4 POINTER TO COMMAND PACKET 

IMPLICIT INPUTS: 



i 



RAMDATA 
RAMSIZ 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ-0 THEN DEFAULT TO 8. 



{IMPLICIT OUTPUTS: 

RAMSIZ SET TO 



RAMERR:: 



L10021: 



} ♦ 



BGNMSC RAMERR 

J5R PC.PRAMPKT 

ENDMSG 



{PRINT RAM/PACKET DATA 



TRAP 



C$MSC 



.SBTTL RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 



PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
INPUTS: 

R4 POINTER TO COMMAND PACKET 
IMPLICIT INPUTS: 



5 



RAMDATA 
RAMSIZ 

ERRHI 
ERRLO 

IMPLICIT OUTPUTS: 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ-O TKEN DEFAULT TO 8 
HIGH ORDER TEST ADDRESS 
LOW ORDER TEST ADDRESS 



RAM3IZ SET TO 



BGNMSG 


RAMTADD 


RAMTADD : : 




JSR 


PC.PRITADD 


JSR 


PC.PRAMPKT 


ENDMSG 




L 10022: 




TRAP 


C*MSG 



tPRINT TtST ADDRESS 
jPRINT RAM/PACKET DATA 



TSV3 - GLOBAL AREAS MACRO M1U3 07-FEB-84 10 ■ 58 
RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 



N5 



SEQ 065 



3935 

1966 
1987 
1988 
1989 
1990 
1991 
1992 
19V3 
1994 
1995 
1996 
1997 
1998 

1999 
2000 
2001 
2002 
2003 



2004 
2005 
2006 
2007 
2008 
2009 
2010 
20.11 
2012 
2013 
20M 
2015 
2016 
2017 

2018 



2019 
2020 



2021 
2022 
2023 
2024 
2025 
2026 
202 7 
2028 
2029 
2030 



015340 
015340 
015340 
015344 
015350 
015354 
015360 
015360 
015360 



015362 
015362 
015362 
015362 
015366 
015372 
015374 
015376 
015402 
015406 
015406 
015406 



015410 



.SBTTL RAMEXP - PRINT RAM EXPD/RECV DATA 



{PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 

INPUTS: 



Rl 
R2 
R4 



RECEIVED DATA 
EXPECTED DATA 
CONTROLLER RAM ADDRESS 



042701 
042702 
004737 
004737 



104423 



17740C 
177400 
007676 
007552 



RAMEXP : 



BGNMSG RAMEXP 



1.10023 



BIC 
9IC 
JSR 
JlR 
ENDrlSG 

TRAP 



$tC<377>,Rl 
*tC<377>.R2 
PC.PRIRAM 
PC.PRIXOR 



C$MSG 



{SAVE FXPD RAM DATA BYTE 
SAVE EXPO RAM DATA BYVE 
PRINT THE RAM ADDRESS 
PRINT THE DATA 



.SBTTL TIMEXP - PRINT TIMER A.B AND EXP/REC 



{ 



PRINT ROUTINE TO DISPLAY r.XPD/RECV DA*! A 
AND TIMER A.B HEADER MESSAGE 



INPUTS i 



Rl 
R2 



RECEIVED DATA 
EXPECTED DATA 



J - 



TIMEXP 



BGNMSG TIMEXP 



012746 
012746 
010600 
104415 
062706 
004737 



104423 



015410' 
000001 



000004 
007.552' 



PRINTX 


OTIMSGO 


MOV 


OTIMSGO, -CSP) 


MOV 


#1,-(SP) 


MOV 


SP.RO 


TRAP 


C5PNTX 


ADD 


04, SP 


JSR 


PC.PRIXOR 


ENDMSG 





{PRINT HEADER 



{PRINT THE DATA 



L10024 



TRAP 



C$MSH 



045 



116 



045 TIMSGOi .ASCIZ 
.EVEN 



**N*A TIMER A STATUS IS IN BIT 3*N*A TIMER B STATUS IS IN 3IT 2 



.SBTTL BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 



B6 



TSV3 - 
BADSSR 

2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 

204 J. 
2042 
2043 



GLOBAL AREAS 
■ PRINT TSSR 



MACRO M1U3 07-FEB-84 10*58 
ERRORS OU OATA TRANSFERS 



SEQ 066 



204-4 
2045 
2046 



2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
20 74 
2075 
20 76 
2077 
2078 



PRINT ROUTINE TOR TSSR ERRORS ON DATA TRANSFERS 
INPUTS t 



Rl 
R2 



CONTENTS Of TSSR 
OATA WRITTEN (8 BITS) 



015510 
015510 
015510 
015512 
015516 
015516 
015520 
015524 
015530 
015532 
015534 
015540 
015542 
015546 
015546 
015546 
015550 



BGOTSG BADSSR 



010246 
C42702 

C 10246 
012746 
012746 
010600 
104414 
062706 
012602 
004737 



104423 
045 



177400 



015550 
000002 



000006 
005634 



116 



045 



BADSSR xx 




MOV 


R2.-CSP) 


BIC 


*177400,R2 


PRINTS 


♦XFERASC.R2 


MOV 


R2,-(SP) 


MOV 


♦XFERASC.-(SP) 


MOV 


•2,-(SP) 


MOV 


SP.RO 


TRAP 


CJPNTB 


ADD 


#6.SP 


MOV 


(SP)*.R2 


JSR 


PC.PRITSSR 


ENDMSG 




L 10025: 




TRAP 


CIMSG 


XFERASCi 


,ASCIZ »*N*A 



I SAVE OATA TRANSFERRED 
jGET JUST ONE BYTE 



iRESTORE R2 

I DECODE TSSR CONTENTS 



#N*A Data Tron»f#rrtc* ■ *03 



♦SBTTL GLOBAL SUBROUTINES SECTION 



I ♦ ♦ 



I THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
i THAT ARE USED IN MORE THAN ONE TEST, 



♦SBTTL SOFINIT * SOFT INITIALIZE OF CONTROLLER 



ROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
THE TSSR REGISTER IS TESTFD FOR ERRORS. ANY ERRORS 
DETECTED SHOULD BE TREATLD AS DEVICE FATAL ERRORS* 



INPUTS} 

R5 

OUTPUTS t 



RO 

CARRY 



ADDRESS Of FIRST REGISTER 



CONTENTS Of TSSR. IF ERROR 
SET If INIT WAS OKAT 
CLEAR IF FATAL ERROR 



CMVXING SEQUENCE! 

MOV #AQDRESS,R5 



I^NIT GLO !^T A ?^flAUI2ro c8ft}A5LL^- FEB - 8410 ' 58 



C6 



SEQ 067 



2079 
2060 
0081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2X35 



015604 
015604 
015610 
015616 
015622 
015626 
015630 
015634 
015640 
015642 
015644 
015646 
015650 
015652 



015654 
015654 
015660 
015662 
015666 
015670 
015674 
015676 
015700 
015704 
015706 
015712 
015714 
015720 
015 724 
015726 



010004 
032700 
001004 
032700 
001023 
000424 
032700 
001011 
032700 
001*14 
042704 
020427 
001007 
000410 



012765 000000 000002 

004737 016060' 

016500 000002 

010004 

042704 176277 

052704 002200 

020400 

001402 

000241 

000401 

0OO261 

000207 



J5R 
BtS 

ERRPF 



SOTINITti 

SAVREG 
MOV 
JSR 
MOV 
MOV 
SIC 
BIS 
CMP 
BEQ 
CLC 
BR 
5$: SEC 
101: RTS 



PC.SQFINIT 
CONTINUE 



j REPORT FATAL ERROR 



I SAVE TNE REGISTERS 
♦0.TSSRCR5) i DO THE INIT. 
PC.WAITF i WAIT FOR SSR 
TSSR(R5),R0 iGET THE TSSR REGISTER 
R0.R4 i TSSR CONTENTS 

**C<HIADDR!0FL>,R4 

♦SSR!N6A,R4 iR4 MAS EXPECTED CONfFNTS 

R4.R0 iONLY EXPECTED BITS SET ? 

5$ iBRANCH IF OKAY 

I CLEAR THE CARRY FOR ERROR 
10$ |G0 TO EXIT 

I SET THE CARRY BIT 
PC i RETURN TO CALLER 



.SBTTL CHKAHC - CHECK TSSR FOR AMBIGUITY 



THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
FOR AMBIGUITY 



INPUT} 



RO 



OUTPUT j 



RO 



CONTENTS OF TSSR 



CONTENTS OF TSSR 



CARRY SET - NO AMBIGUITY 

CLR . AMBIGUOUS CONTENTS 



CHKAMB 



100000 

174077 

000200 

0(vy,40 

177761 
000016 



5$: 



SAVREG 

MOV 

BIT 

BNE 

BIT 

BNF 

BR 

BIT 

BNE 

BIT 

BEQ 

BIC 

CMP 

BNE 

BR 



401 
451 

♦SSR.RO 

101 

•6IT5,R0 

401 

#»CrERCUS,R4 

R4,#16 

40$ 

45$ 



BITS 



iSAVE THE GENERAL REGISTERS 
R0.R4 i CONTENTS OF TSSR 

♦SC.RO iIS BIl 15 SET ? 

5$ iBRANCh IF YES 

*tC<NBA.'0FL!SSR!HIAD0R>,R0 |ANY OTHER 

i MUST BE AN ERROR 

I RETURN WITH SUCCESS 

iIS READY BIT SET ? 

i BRANCH IF READY BIT 

iIS FATAL ERROR BIT 

l ERROR IF NOT 

i CLEAR ALL BUT TERMINATION CODE 

i ALL THREE BITS MUST BE SET 

I ERROR IF NOT SET 

I OK IF ALL ARE SET 



SET 



TS 

SET 



SET, 
? 



ISSm ^"SfikcFf 8§r fo^SMH 3 0? - feb - 84 10 ' 58 



D6 



SEQ 068 



2136 


015730 


032700 


000040 




2137 


015734 


001405 






2138 


015736 


032700 


000006 




2139 


015742 


001002 






2140 


015744 


000241 






2141 


015746 


000401 






2142 


015750 


000261 






2143 


015752 


000207 






2144 










2145 










2146 










2147 










2148 










2149 










2150 










2151 










2152 










2153 










2154 




000200 






2155 




000001 






2156 










2157 










2158 


015754 


000 






2159 










2160 


015755 


000 






2161 










2162 










2163 


015756 


000000 






2164 










2165 


015760 


000000 






2166 










2167 










2168 


015762 


010046 






2169 


015764 


013700 


002206' 




2170 


015770 


012720 


016026' 




2171 


015774 


012720 


000340 




2172 


016000 


012600 






2173 


016002 


011646 






2174 


016004 


012766 


000000 


000002 


2175 


016012 


000002 






2176 










2177 










2178 


016014 


011646 






2179 


016016 


012766 


000340 


000002 


2180 


016024 


000002 






2181 










2182 










2183 










2184 


016026 
016026 








2185 


016026 


0127*7 


000001 


002222* 


2186 


016034 


105037 


015755' 




2187 


016040 


132737 


000001 


015754' 


2188 


016046 


001003 






2189 


016050 


155737 


000001 


015755' 


2190 










2191 











10$: 


BIT 


OBIT5.R0 




BEQ 


45$ 




BIT 


*BIT2!BlTl,R0 




BNE 


45$ 


40$ j 


CLC 






BR 


50$ 


45$s 


SEC 




50$; 


RTS 


PC 



»15 FATAL ERROR BIT SET ? 
TERROR IF BIT IS SET WITH SSR 
l IS THIS A FUNCTION REJECT 
|BR, IF TSSR 1$ OK 
I AMBIGUOUS CONTENTS 

> SHOW SUCCESS - NO AMBIGUITY 
iRETURN TO CALLER 

.SBTTL *NAINT,DSBINT - ENABLE/DISABLE INTERRUPTS 

j DEFAUI T DISPLAY INTERRUPT HANDLERS, 

I IF DISPLAY TIMf.-OUT, REPORT DEV FATAL, AND ABORT PASS, 

I OTHERWISE, SAV- DPU REGISTERS AND DISMISS. 

\ 

I BIT DEFINITIONS FOR "INTMASK" AND "INTFLAG" BYTtiS: 



I0KCK1N-BIT7 
IOKSTP-BITO 



I DON'T CHECK FOP BAD INTERRUPTS -- TEST WILL 
l EXPECT "STOP" INTERRUPT. 



I INTERRUPT MASK -- SAYS EXPECTING INTERRUPTS 

INTMASK; .BYTE 

i INTERRUPT FLAG -- SAYS WE GOT ONE (IF POSITIVE) 

INTFLAG: .BYTE 

i SAVED INTERRUPT VECTOR; 

INTVEC; ,WOR0 
iSAVE CPU PC 

INTCPC: .WORD 



i SUBROUTINE TO ENABLE INTERRUPTS: 
ENAINT; MOV RO.-(SP) iSAVE RO 

IVEC.RO 

OINTR.(RO)* 

♦PRI07.CR0)* 

(SP)*,RO 

CSP).-(SP) 

00.2CSP) 



MOV 

MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



iGET POINTER TO VECTORS 
j SET UP INTERRUPT VECTOR 



1 RESTORE RO 

j SET CPU TO LEVEL 



iSUBROUTINE TO DISABLE INTERRUPTS CRAISE PRIORITY TO LEVEL 7) 



DSBINTj MOV 
MOV 



INTR: 



RTI 

.SBTTL 

BGNSRV 

MOV 

CLRB 

BITS 

BNE 

BISB 



(SP).-(SP) 

♦PRI07.2CSP) 



INTR 
INTR 



INTERRUPT HANOLERS 

iDEFINE INTERRUPT ENTRY 



frl.INTRECV iSET FLAG TO SHOW INTERRUPT RECEIVED 

INTFLAG i CLEAR FLAG TO SAY WE GOT INTERRUPT 

♦IOKSTP, INTMASK lEXPECTING STOP INTERRUPT? 

1$ iBR IF YES 

*IOKSTP, INTFLAG |NQ. SET THE ERROR FLAG. 



iSAVE REGISTERS, MSG BUFFER, ETC. 



F6 



016146 
016146 
016152 
016154 
016160 
016162 
016166 
016170 
016174 
016176 
016200 
016202 
016204 



004737 
103014 
004737 
103006 
032700 
001405 
032700 
001402 
000241 
000401 
000261 
000207 



016060 
015654' 
100000 
074000 



TSV3 - GLOBAL AREAS MACRO M1113 
CHKTSSR - CHECK TSSR FOR READY 



2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2?76 
2277 
2278 
2279 
2280 
2281 
2282 
2283 



07-FEB-84 10;5b 



SEQ 070 



i 

i 

J 



TCSR 



KO CONTENTS OF 
CARRY SET - OKAY 

CLR - NOT READY AMBIGUOUS, OR SC SET 



CHKTSSR; 



10$ 

15$ 
^0$ 



JSR 
BCC 
JSR 
BCC 

BIT 

b:t 

611 

BEQ 

CLC 

PR 

oEC 

RTS 



PCWAITF 

20$ 

PC.CHXAMB 
10$ 

•SC.RO 

15$ 

©<SCE!BIE!RMR*NXM>,RO 

20$ 
PC 



jWAIT FOR READY 

l BRANCH IF TIME OUT 

jTSSR AMBIGOUS? 

jBR IF YES 

I SPECIAL CONDITION SET? 

j BR IF NO 

jANY ERROR BITS SET? 

j BR IF NO 

jSET FAILURE 

j SET SUCCESS 

I RETURN TO CALLER 



*JTTL XNXM 



- CHECK FOR NONEXISTENT MEMORY 



2284 
2285 
2286 
22e>. 

2288 
2289 
2290 
2291 
2292 



016206 
016214 
016222 
016224 
016226 

016230 
016232 
016234 
016240 

015242 
016244 
016250 
016252 
016252 
016256 
016260 
016262 
016264 
016266 



012737 016242' 000004 

012737 000200 000006 

005003 

000241 

0057H 

020102 

001407 

062701 000002 

000772 

005103 

012716 016252' 

000002 

012700 000004 

104436 

005703 

001401 

000261 

000207 



ROUTINE T C< '(VST FOR A NEXM IN THE RANGE CR1) THRU (R2). 
ON RETURN, IK 'T" - 1, (Rl) * NEXM ADDRESS, 
"C" • 0, ALL ADDRESSES OK. 



iTEST »C° ANO PROCEED 



I SET BUSERR VECTOR, 

j FLAG. 

I CLEAR THE CARRY FOR NO NXM FOUND 

I TEST THE ADDRESS(ES). 

I IF ANY TRAP, CONTINUE AT 2$. 

I OTHERWISE. CONTINUE HERE. 

I BR IF FINISHED (NO NEXM'S), 

i SET NEXT ADDRESS... 

I,.. ANO CONTINUE. 

j GOT ONE, SET FLAG. . , 

l... AND DISMISS INTERRUPT... 
j,,. ANO GIVE BACK THE VECTOR. 



;DID Wt CATCH ONE ?? 

jNO, "C" - 0, SKir NEXT. 

lYES, "C" - 1, (Rl) - NEXM ADDR. 



j CALL: 


MOV 


ADR1,R1 




MCV 


AD^2.R2 




JSR 


PC, 


NXM 




RETUfcN 


iT 


XNXM: 


MOV 




S2$,S*4 




MOV 




OPRI04.806 




CLR 




RS 




CLC 






1$: 


TST 




CRD 




CMP 




R1.R2 




BEQ 




3$ 




ADO 




02, Rl 




BR 




1$ 


2$: 


COM 




R3 




MOV 




03$,rsP) 




RTI 






3$: 


CLRVEC 


64 




MOV 




o4,no 




TRPF 




C$CVEC 




TS1 




r: 




BEQ 




♦ 4 




SEC 








RTS 




PC 



.SBTTL TSTtOOP - CHECK ITERATION COUNT 



G6 



002166' 
002202' 
002214 < 



TSV3 - GLOBAL AREAS MACRO Ml 113 
TSTLOOP - CHECK ITERATION COUNT 



£293 

2294 
2295 
2296 
2297 
2298 
2299 

2300 016270 

2301 016270 C05737 

2302 016274 001006 

2303 016276 005737 

2304 016302 100403 

2305 016304 005337 

2306 016310 001002 

2307 016312 000241 

2308 016314 000401 

2309 016316 000261 

2310 016320 000207 
2311 

2312 
2313 
2314 
2315 
d316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
232? 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 

2338 016322 

2339 016322 010046 

2340 016324 005037 

2341 016330 005037 

2342 016334 005037 

2343 016340 105037 

2344 016344 013700 

2345 016350 006300 

2346 016352 005737 

2347 016356 001430 

2348 016360 100010 

2349 016362 052760 



07-FEB-84 10:58 



J ♦ 



SEQ 071 



i SUBf.OUTINE TO EXECUTE TEST ITERATIONS. 

i exi; i:m "C set if loops allowed and loop count non-zero. 

I LOOr* COUNTER IS SET BY "BEGIN, TEST" MACRO. 



j CALL: LOOPTO ARG 



TSTLOOP 


* * 






TST 


NOITS 




BNE 


14 




TST 


QVP 




BMI 


li 




DEC 


LOOPCNT 




BNE 


2$ 


It: 


CLC 






BR 


3* 


21: 


SEC 




3$: 


RTS 


PC 



t ITERATIONS INHIBITED? 

i YES. 

I NO. 

j LOOPS DISALLOWED IN QUICK PASS. 

I BUMP LOOP COUNTER. 

I LOOP DISALLOWED, OR DONE. 

j LOOP ENABLED. 



.SBTTL TSTSETUP - PRINT TEST NAME ANO INIT ERROR COUNTS 

PRINT THE NUMBER ANO NAME OF EACH TEST AS WE GO ALONG. 

INCREMENT "TESTK" TO INOICATE THE NUMBER OF TESTS 

IN THE CURRENT RUN SEQUENCE. 

CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 



INPUT: 



RO 



POINTER TO TEST 10 ASCIZ STRING 



OUTPUT: 



R5 



003152' 
01.6570' 
005602' 
015754* 
002200' 

003112' 



160000 003174 



ADDRESS OF FIRST DEVICE REGISTER 

IMPLICIT OUTPUTS: 

TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 

SIDE EFFECTS: 

INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNOER TEST 



SAVE THE TEST ID MESSAGE 
CLEAR "SOFT INIT" FLAG 
CLEAR LOCAL ERROR COUNTER. 
CLEAR ERROR EXTENSION FLAG. 
ClEAR INTERRUPT MASK (CHECK ERROR) 
GET THE UNIT NUMBER. 
... AND MAKE IT A WORD OFFSET. 
DID STARTUP FIND THE DEVICE? 
BR IF YES 
BR IF ;*ur IDLE 
0160000 t ERTABL(RO) j 'LAG ERROR IN THE ERROR TABLE 



TSTSETUP:: 




MOV 


RO.-(SP) 


CLR 


SIFLAG 


CLR 


ERRK 


CLR 


EXTA 


CLRB 


1NTMASK 


MOV 


UNITN.RO 


ASL 


RO 


TST 


NODEV 


BEQ 


4$ 


BPL 


31 


BIS 


160000 1 



-16 



TSV3 - GLOBAL AREAS 

TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNT 



MACRO Ml 113 _07 z rE6r84_10s58 



SEQ 072 



2350 



2351 
2352 
2353 



2354 
2355 



2356 

2357 
2358 
2359 

2360 
2361 
2362 
2363 



2364 
2365 



2366 

2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
237^ 

2378 
2379 
2380 



016370 
016370 
016372 
016374 
016376 
016400 
016402 
016410 
016410 
016412 
016414 
016416 
016420 
016426 
016426 
016432 
016434 
016434 
016436 

016440 
016440 
016442 
016446 
016450 
016452 
016452 
016454 
016460 
016464 
016466 
016470 
016474 
016500 
016500 
016504 
016506 
016510 
016514 
016516 



016532 
016532 
016534 
016540 
016542 
016542 
016546 
016552 
016556 
016560 



104455 

000001 

003732' 

005546' 

000407 

052760 160001 003174' 3$: 

104455 

000002 

004327' 

000000 

012737 177777 003110' 2$: 

013700 002200' 
104451 

104444 
000423 



104421 
032700 
001412 
011600 

010046 
012746 
012746 
010600 
104417 
062706 
005237 

013700 
104441 
005726 
013705 
000207 
045 



4$ j 



001000 



016516 
000002 



000006 
002212' 

002210' 



002204 ' 
123 



1$: 

5$: 

045 TNAMj 

I 



ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

BR 

BIS 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

MOV 

DODU 

MOV 

TRAP 

DOCLN 

TRAP 

BR 

RFLAGS 

TRAP 

BIT 

BEQ 

MOV 

PRINTF 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

INC 

SETPRI 

MOV 

TRAP 

TST 

MOV 

RTS 

.ASCIZ 

.EVEN 



l.NXR.NXRERR 

cJerdf 

1 

NXR 

NXRERR 

2* 

$160001 >ERTABL(RO) 



I NO DEVICE HERE -- PRINT IT 



2.N0INIT 

CIERDF 

2 

NOINIT 

O 

♦-l.OUFLG 

UNUN.RO 

CIDODU 

CtDCLN 
5* 

RO 

CIR^LA 

*PNT,RO 

1$ 

CSP),RO 

♦TNAM.RO 

RO,-(SP) 

OTNAM.-CSP) 

*2,-(SP) 

SP.RO 

CIPNTF 

*6 # SP 

TSTCNT 

IPRI 

IPRI.RO 

CISPR'i 

(SP)* 

CSPAD0R.R5 

PC 

'tfStfTtfA Test 



> FLAG ERROR IN THE ERROR TABLE 



j DEVICE NOT IDLE 



j DROP THE UNIT 



j ABORT THE PASS 



; GET THE OPERATOR FLAGS. 

i PRINT THE TEST NUMBERS? 

j BR IF NO 

iGET THE ID MESSAGE 

^DISPLAY THE TEST ID 



» BUMP TEST COUNTER. 
tPRIORITY THAT OF DEVICE 



jFIX UP THE STACK 

I ADDRESS OF TSV REGISTERS ON UNIBUS 



.SBTTI. TSTENO - PRINT ERRORS RECEIVED 



i AT END OF EACH TEST. PRINT THE NUMBER OF ERRORS RECEIVED 
i IF NORMAL ERROR REPORTING IS DISABLED (FLA-IER). 



104421 

030027 020000 

001412 

013746 016570' 
012746 016572' 
012746 000002 
010600 
104417 



TSTENO: 



RFLAGS 


RO 


TPPP 


CIRFLA 


BIT 


ROSIER 


BEQ 


1$ 


PRINTF 


*€SUM,ERRK 


MOV 


ERRK, -(SP) 


MOV 


*ESUM, -(SP) 


MOV 


♦2,-CSP) 


MOV 


SP.RO 


TRAP 


C*PNTF 



l BR IF "IER" NOT SET. 
t PRINT ERROR COUNT, 



TSV3 - GLOBAL AREAS MACRO M1113 
TSTENO - PRINT ERRORS RECEIVED 



07-FEB-84 10:58 



16 



SEQ 073 



2381 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 

2414 
2415 
2416 
2417 



2418 



2419 

2420 
242i 
2422 

2423 
2424 
2425 
2426 
242 7 
2428 



016562 
016566 

016570 
016572 
016611 



062 706 000006 
000207 



016656 
016662 
016664 
016670 
016672 
016676 
016700 
016704 
016706 
016710 
016712 

016714 
016716 
016722 
01672* 
016730 
016734 
016740 
016742 
C 16750 
016752 
016752 
016754 
016760 
016762 
016770 
016770 
016772 
016774 
016776 
017000 
017000 
017004 
017006 
017006 
017010 
017012 



000000 
045 
105 



010046 
013700 
006300 
016000 
042700 
020037 
103004 
023737 
103417 

104421 
032700 
001013 
012737 

104455 
000004 
016611 
000000 

013700 
104451 

104444 
01c600 
000207 



101 
122 



1$: 

ERRK: 
040 ESUMi 
122 EMAXDU: 



J ♦ 



ADD 
RTS 



.ASCIZ 
.ASCIZ 
.EVEN 



*6,SP 
PC 

i LOCAL ERROR COUNT. 
/HP *D*A ERRORS/ 
/ERROR LIMIT REACHED -- DROPPING UNIT/ 



.SBTTL INCERK 



INCREMENT LOCAL ERROR COUNT 



005237 016570' 

010046 

013700 002200 ' 

006300 

062700 003174' 

0052 IC 

032710 007777 

001001 

005310 

012600 

000207 



002200 ' 

003174' 

170000 

002172- 

016570' 002170 



OOC040 
177777 



003110 



I ROUTINES TO INCREMENT LOCAL ERROR COUNT ANO CHECK FOR LIMIT; 

INCREMENT LOCAL ERROR COUNT 

SAVE RO 

GET UNIT NUMBER, 

... ANO HAKE IT A WORD OFFSET. 

RO GETS ADDRESS OF ERROR TABLE ENTRY. 

INCREMENT THE DEVICE ERROR COUNT 

DID WE OVERFLOW THE FIELD? 

BR IF NO. 

YES -- BACK IT UP TO 7777. 

RESTORE RO 

RETURN TO CALLER. 

SAVE RO 

GET UNIT NUMBER 

. . . ANO MAKE IT A WORD OFFSET 

GET ERROR TABLE ENTRY 

EXTRACT ERROR COUNT FIELD 

IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 

BR IF YES 

IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 

BR IF NO 

GET OPERATOR FLAGS 

IS DROPPING INHIBITED? 

BR IF YES. 

NO -- DROP THE UNIT 



002200' 



INCERK: 


INC 


ERRK 






MOV 


RO.-(SP) 






MOV 


UNITN.RO 






ASL 


RO 






ADD 


♦ERTABL.RO 






INC 


(RO) 






BIT 


*7777,CR0) 






BNE 


1$ 






DEC 


(RO) 




1$: 


MOV 


CSP)*,RO 






RTS 


PC 




CKEMAXi 


MOV 


RO.-(SP) 






MOV 


UNITN.RO 






ASL 


RO 






MOV 


ERTABL(RO),RO 






BIC 


0170000, PO 






CMP 


RO.GERRMAX 






BHIS 


11 






CMP 


ERRK.LERRMAX 






BLO 


21 




1$: 


RFLAGS 


RO 






TRAP 


C*RFLA 






HIT 


0IDU.RO 






BNE 


2* 






MOV 


♦ -l.DUF'LG 






ERRDF 


4. EMAXDU 






TRAP 


CiERDF 






.WORD 


4 






.WORD 


EHAXDU 






.WORD 









OODU 


UNITN 






MOV 


UNITN.RO 






TRAP 


CIDOOU 






DOCLN 








T7AP 


CIDCLN 




2*; 


MOV 


(SP)*,RO 


i 




RTS 


PC 


i 



.SBTTL CKDROP 



I RESTORE RO 

l RETURN TO CALLER 

CHECK IF UNIT SHOULD BE DROPPED 



017014 
017016 



010046 



I ♦ 

t CHECK IF UNIT SHOULD BE DROPPED 

t - 

CKDROP t MOV RO, -(SP) 

FORCERROR ll.NOTSS* 



J6 



TSV3 - 
CKOROP 

2429 

2430 
2431 
2432 
2433 
2434 



2435 

2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 

24*6 

2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
24 71 
24 72 
2473 
24 74 
2475 
24 76 
?A . 7 
24/8 
24 79 
2480 
£481 



GLOBAL AREAS 
- CHECK IF UNIT 



017026 
017026 
017030 
017034 
017036 
017040 
017046 
017046 
017052 
017054 
017054 
017056 
017060 



017062 
017062 
017066 



017070 
017074 
017076 
017104 



017106 
017112 
017114 
017116 
017120 
017126 



104421 
032700 
001010 
011600 
012737 

013700 
104451 

104444 
OV2600 
000207 



004737 
000207 



00573/ 
001403 
012737 
000207 



005737 
001405 
000240 
000240 
012737 
000207 



MACRO M1113 07-FEB-64 10:58 
SHOULD BE DROPPED 



SEQ 074 



000040 

177777 

002200' 



003110 



015604 



003130 
000001 



177572 



003130 



000000 177572 



1$ 



RFLAGS 

TRAP 

BIT 

BNE 

MOV 

MOV 

DOOU 

MOV 

TRAP 

DOCLN 

TRAP 

MOV 

RTS 



RO 

C4RFLA 

*IDU,RO 

1$ 

(SP).RO 

«-l,OUFLG 

UN7.TN 

UNITN.RO 

CIDODU 

CSCCLN 
(SP)*,RO 

PC 



j ABORT THE PASS 



.SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 
! SUBROUTINE - DETERMINE CONFIGURATION OF TSU05 SYSTEM. 
CONFIG: 



JSR PC.SOFINIT 

RTS PC 

.SBTTL KTCN.KTOFF 

SUBROUTINE - ENABLE MEM MGT , 



KTONj 
1*5 



TST 
BEQ 
MOV 
RTS 



KTFLG 

1$ 

oi.sro 

PC 



- ENABLE/DISABLE MEMORY MANAGEMENT 



l GOT KT? 

i NO, 

I YES. ENABLE KTU. 



} SUBROUTINE - DISABLE MEM MGT. 
KTOFF: 

1$: 



TST 


KTFLG 




j GOT KT11? 


BEQ 


1% 




t NO. 


NOP 








NOP 








MOV 


*0,SRO 




I DISABLE KT 


RTS 


PC 






.SBTTL 


SETMAP 


- SETUP 


PAR6 MAPPING 



i THIS ROUTINE SiiTS UP KERNEL PAR6 TP HANDLE 
j AN 22 BIT ADDRESS. THE OFFSET INTO THE PAGE 
» IS RETURNED BIASED TO PAR6. 



INPUTS: 



RO 
Rl 



HIGH ORDER ADDRESS Bi:S 
LOW URDER ADDRESS BITS 



jOUTPUTS: 



TSV3 GLOBAL AREAS MACRO M1113 
SETMAP - SETUP PAR6 MAPPING 



07-FEB-84 10 5 58 



i<6 



SEQ 075 



2482 
2483 
2484 
248? 
2486 
2487 
2488 
24B9 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
253? 
2533 
2534 
2535 
2536 
2537 
2538 



017130 
017130 
017134 
017140 
017142 



017174 
017200 
017204 
017206 
017212 
C172V6 
017222 
017224 
017226 
017230 
017232 



017234 
017234 
017240 
017244 
017246 
017252 
017256 
017260 
C17262 
017264 
017270 
017272 
017276 
017300 



005737 
001433 
010102 
000006 



042701 
020137 
103011 
010137 
042702 
062702 
010200 
000261 
000401 
0O024J. 
000207 



004737 
010003 
013701 

013702 
010321 
005302 
003375 
005737 
001502 
004737 
005000 
013701 
000006 



003130 



000177 
003130' 

172354 
160000 
140000 



RO 
CARRY 



SETMAP: 

SAVREG 
TST 
BEQ 
MOV 
,REPT 
ASR 
ROR 
.ENDR 
BIC 
CMP 
BHiS 
MOV 
BIC 
ADD 
MOV 
SEC 
BR 
10$: CLC 
15$; RTS 



OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. 
SET IF SUCCESS 
CLR IF ERROR 



THE ADDRESS) 



KTF.G 

10$ 

R1.R2 

6 

RO 

Rl 

#177, Rl 

PI. KTFLG 
10$ 

R1,©#KIPAR6 
£160000, R2 
#140000 ,R2 
R2.R0 

15$ 

PC 



I SAVE R1-R4 UNTIL NEXT RETURN 

jSYSTEM HAVE ABOVE 28K? 

j BR IF NO 

i SAVE LOW ORDER BITS 

{CONVERT WORD ADDRESS TO 32W BLOCKS 
>MAKE IT DOUBLE PRECISION 

I ALINE FOR LOWER 4K BOUNDARY 
{HIGHER THAN EXISTING MEMORY? 
;BR IF YES 

j SETUP MAPPING REGISTER PAR6 
{SETUP DISPLACEMENT IN PAGE 
jADD IN PAR6 BIAS 
{RETURN IN RO 
{SET SUCCESS 

{SET FAILURE 
{RETURN 



.SBTTL FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 
FILL MEMORY WITH A BACKGROUND PATTERN 



I INPUTS: 



RO - BACKGROUND PATTERN 

FREE - FIRST LOCATION AVAILABLE TO DIAGNOSTIC 

KTFLG - SET TO HIGHEST MEMORY LOCATION IF > 2GK 



i OUTPUTS: 



NONE 



j - 



017106 

003122 
003124 



003x30' 
017070' 
003150' 



FILLMEM: 




SAVREG 




JSR 


PC.KTOFF 


MOV 


R0,R3 


MOV 


FREE.R1 


MOV 


FRESIZ.R2 


10$: MOV 


R3,CRl)f 


DEC 


R2 


BGT 


10$ 


TST 


KTFLG 


BEQ 


55$ 


JSR 


PC, K TON 


CLR 


RO 


MOV 


PST32W.R1 


,REPT 


6 



;SAVE R1-R5 UNTIL NEXT RETURN 
DISABLE KT. 
COPY TEST PATTERN 
GET FIRST FREE LOCATION 
SIZE OF FREE SPACE BELOW 28K , 
STORE A BACKGROUND WORD 
DONE ALL MEMORY IN FREE SPACE? 
BR IF NO 
GOT KT? 
NO. GET OUT. 
YES. ENABLE KT. 
{HIGH ORDER ADDRESS START 
{GET >26K START ADDRESS (IN 32W BLOCKS) 



L6 



TSV3 - GLOBAL AREAS MACRO Ml 
FILLMEM - TILL MEMORY WITH BACK 



2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
25 72 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2581 



3 07-FFI 
UND PATTI 



1-84 10:58 
:RN 



SEQ 076 



017350 
017354 
017356 
017362 
017364 
017370 
017376 
017402 
017406 
017412 
017414 
017420 
017422 
017426 
017432 
017436 
017440 
017444 
017446 
017454 
017456 
017460 
017466 
017472 
017476 



004737 
010320 
020027 
103774 
162700 
062737 
013705 
042705 
023705 
001427 
005737 
001407 
013704 
042704 
022704 
001415 
005737 
001410 
023727 
103001 
000403 
012737 
000137 
004737 
000207 



017130' 

160000 

020000 

000200 172354 

003130 1 

170000 

172354 

003142' 

177572 
1 7 7761 
000016 

003144' 

172354 007600 



000020 \ 72516 

017354' 

017106* 



CLC 
ROL 
ROL 
.ENDR 
JSR 
30$: MOV 

CMP 
BLO 

sue 

ADO 

MOV 

BIC 

CMP 

BEQ 

TST 

BEQ 

MOV 

BIC 

CMP 

BEQ 

TST 

BEQ 

CMP 

BHIS 

BR 

MOV 

JMP 

JSR 

RTS 



35$ 



40$ 
45$ 
50$ 
55$ 



Rl 
RO 

PC.SETMAP 

R3,(R0)* 

RO, 0160000 

30$ 

$20000, RO 

0200.SOKIPAR6 

KTFLG,R5 

0170000. R5 

Q0KIPAR6.R5 

50$ 

T23A 

35$ 

SR0.R4 

0177761.R4 

016 f R4 

50$ 

T23B 

45$ 

S*K IP AR6, 07600 

40$ 

45$ 

020, SR3 

30$ 

PCKTOFF 

PC 



CLEAR C BIT 

CONVERT BLOCKS TO WORDS 

MAKE IT DOUBLE PRECISION 

SETUP PAR6 MAPPING REGISTER 

STORE TEST PATTERN IN >26K ADDRESS 

END OF PAR6 MAPPING AREA? 

BR IF NO 

6ACKUP INTO PAR6 MAPPING BEGIN 

POINT TO NEXT 4K BLOCK >28K ♦ 

GET VALUE FROM MEMORY SI2ER 

ONLY 18 BITS PASS 

END OF - MEMORY? 

DR IF YES 

PROCESSOR TfPE A 

NO KEEP GOING 

GET SRO CONTENTS 

CLEAR ALL BUT PAGE NUMBER 

SEE IF PAGE 7 

EXIT IF THERE 

PROCESSOR TYPE B 

NO KEEP GOING 

REACHED 16 BITS? 

YES 

NO KEEP GOING 

SET MMU RELOCATION 
;KEEP GOING ON ETC. 
; DISABLE KT, 



.SBTTL CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 

COMPARE MEMORY WITH A BACKGROUND PATTERN 

INPUTS: 

RO - BACKGROUND PATTERN 

FREE - FIRST LOCATION AVAILABLE TO DIAGNOSTIC 

KTFLG - SET TO HIGHEST MEMORY LOCATION IF > 28K, 



OUTPUTS : 



25 



82 
2583 
2584 
2585 
2566 
258/ 
2548 
2589 
2'390 
£591 
?S92 
2593 
2594 
2595 



CARRY - SET IF NO ERROR 
CARRY - CLR IF ERROR 



IMPLICIT OUTPUTS: 



017500 
017500 
017504 
017506 
017512 



CMPMEM: 



010003 

004737 017106' 

013701 003122' 



ERRHI 
ERRLO 
EXPD 
RECV 



SAVREG 

MOV 
JSR 
MOV 



- ERROR HIGH ADDRESS 

- ERROR LOW ADDRESS 

- EXPECTED DATA 

- RECEIVED DATA 



R0.R3 

PC.KTOFF 

FREE.Ri 



{SAVE R1-R5 UNTIL NEXT RETURN 

{COPY TEST PATTERN 

jDISABLE KT. 

;G£T FIRST FREE LOCATION 



TSV3 - GLOBAL AREAS MACRO M1113 07-FEB-84 10:58 
CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 



M6 



SEQ 077 



2596 


017516 


013702 


003124' 


2597 


017522 


020311 




2598 


017524 


001411 




2599 


017526 


010137 


002236' 


2600 


017532 


005037 


002254' 


2601 


017536 


010337 


002230' 


2602 


C17542 


011137 


002232* 


2603 


017546 


0004 74 




2604 


017550 


005721 




2605 


017552 


005302 




2606 


017554 


003362 




2607 


017556 


005737 


003130' 


2608 


017562 


0014 72 




2609 


017564 


004737 


017070' 


2610 


017570 


005000 




2611 


017572 


013701 


003150' 


2612 




000006 




2613 








2614 








2615 








2616 


017626 


>42701 


000177 


2617 


J17032 


t\ 0C46 




2618 


017634 


010146 




2619 


017636 


004737 


017130' 


2C20 


017642 


010004 




2621 


017644 


012601 




2622 


017646 


012600 




2623 


017650 


020314 




2624 


017652 


001411 




2625 


017654 


010037 


002234' 


2626 


017660 


010157 


002236' 


2627 


017664 


010337 


002230' 


2628 


017670 


011437 


002232' 


2629 


017674 


000421 




2630 


017676 


062701 


000002 


2631 


017702 


005500 




2632 


017704 


062704 


000002 


2633 


017710 


020427 


160000 


2634 


017714 


103755 




2635 


017716 


162704 


020000 


2636 


017722 


062737 


000200 172354 


2637 


017730 


023737 


172354 003130' 


2638 


017736 


101744 




2639 


017740 


004737 


017106' 


2640 


017744 


000241 




2641 


017 746 


000403 




2642 


017750 


004737 


017106' 


2643 


017754 


000261 




2644 


017756 


000207 




2645 








2646 








264/ 








2648 








2649 








2650 








2651 











MOV 


FRESIZ.R2 


10$: 


CMP 


R3.CR1) 




BEQ 


15$ 




MOV 


Rl.ERRLO 




CLR 


ERRHI 




MOV 


R3.EXPD 




MOV 


CRD.RECV 




BR 


50$ 


15$: 


TST 


CRD* 




DEC 


R2 




BGT 


10$ 




TST 


KTFLG 




BEQ 


55$ 




JSR 


PC.KTON 




CLR 


RO 




MOV 


PST32W.R1 




.REPT 


6 




ROL 


Rl 




ROL 


RO 




.ENDR 






BIC 


«177,-U 




MOV 


RO,-fSP) 




MOV 


ri,-:sp) 




JSR 


PC.SETMAP 




MOV 


R0.R4 




MOV 


(SP'*.R1 




MOV 


CSPM.RO 


30$: 


CMP 


r3,;r4) 




BEQ 


32$ 




MOV 


RO, ERRHI 




MOV 


R1,ERRL0 




MOV 


R3.EXPD 




MOV 


CR4),RECV 




BR 


50$ 


32$: 


ADD 


02.R1 




ADC 


RO 




ADD 


*2,R4 




CMP 


R4, 0160000 




BLO 


30$ 




SUB 


$20000, R4 




ADD 


$200 t aOKIPAR6 




CMP 


a*KIPAR6, KTFLG 




BLOS 


30$ 


50$: 


JSR 

CLC 


PC.KTOFF 




BR 


60$ 


55$: 


JSR 

SEC 


PC.KTOFF 


60$: 


RTS 


PC 



j SIZE OF FREE SPACE BELOW 28K. 

{FREE SPACE LOCATION EQUAL TO EXPO? 

I BR IF YES 

{SAVE ADDRESS IN ERROR 

jNO HIGH ADDRESS 

j SAVE EXPD FOR ERROR REPORT 

{SAVE RECV FOR ERPOR REPORT 

{POINT TO NEXT ADDRESS 

{DONE ALL MEMORY IN FRhE SPACE? 

{BR IF NC 

{ GOT KT? 

{ NO, GET OUT, 

j YES. ENABLE KT. 

{HIGH ORDER ADDRESS START 

{GET >28K START ADDRESS CIN 32W BLOCKS) 

{CONVERT BLOCKS TO WORDS 
{MAKE IT DOUBLE PRECISION 

{ALINE 4K BOUNDARY 

{SAVE HIGH ORDER 

{SAVE OW ORDER 

{SETUP PAR6 MAPPING REGISTER 

{COPY ADDRESS BIASED TO PAR6 

{RESTORE LOW ORDER IN NON PAR6 FORMAT 

{RESTORE HIGH ORDER IN NON PAR6 FORMAT 

{ABOVE 28K LOCATION EQUAL EXPD? 

{BR IF YES 

{SAVE HIGH ORDER IN ERROR 

{SAVE LOW CRDER IN ERROR 

{SAVE EXPD FOR ERROR REPORT 

{SAVE RECV FOR ERROR REPORT 



{UPDATE NON PAR6 ADDRESS 

{MAKE IT DOUBLE PRECISION ADD 

{UPDATE PAR FORMAT ADDRESS 

{END OF PAR6 MAPPING AREA? 

; BR IF NO 

{BACKUP INTO PAR6 MAPPING BEGIN 

{POINT TO NEXT 4K BLOCK >26K. 

;END OF MEMORY? 

{BR IV NO 

{TURN OFF MEMORY MAPPING 

{SET FAILURE 

{TURN OFF MEMORY MAPPING 
{SET SUCCESS 



.SBTTL REGSAV 



SAVE R1-R5 ON STACK 



2652 



{ROUTINE TO 

ijAVE Rl THROUGH R5 ON THE STACK 

•CALLING SEQUENCE: 



N6 



T3V3 GLOBAL AREAS 


MACRO MJ113 


07 -FEB -84 


10:58 




REGSAV 


- SAVE 


R1-R5 ON 


STACK 








2653 














2654 










JSR 


R5, REGSAV 


2655 














2656 








\ THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 


2657 








{THE CALLING ROUTINE, AT THE END OF THE CALLING ROUTINE, 


26 r 8 








;THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 


2659 








{REGISTERS. 




2660 














2661 








[THIS ROUT INI SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 


2662 








{CALLED 


VIA A JSR PC INSTRUCTION 


2663 














2664 








• - 






2665 














2666 


017760 






REGSAV: 






2667 


017760 


010446 






MOV 


R4.-CSP) 


2668 


017762 


010346 






MOV 


R3, -CSP) 


2669 


017764 


010246 






MOV 


R2, -CSP) 


2670 


017766 


010146 






MOV 


Rl, -(SP) 


2671 


017/70 


010546 






MOV 


R5, -(SP) 


2672 


017772 


016605 


000012 




MOV 


10,CSP).R5 


2673 


017776 


004736 






JSR 


KC.SCSP^ 


2674 


020000 


012601 






MOV 


CbP)»,Rl 


2675 


020002 


012602 






MOV 


(SPV.R2 


2676 


020004 


012603 






MOV 


(SP)*,R3 


26 7 7 


020006 


012604 






MOV 


CSf )*.R4 


2678 


020010 


012605 






MOV 


CSf )*,R5 


2679 


020012 


000207 






RTS 


PC 


2o80 














2681 










.SBTTL 


GETPAT - GET 8 BIT PATTERN FROM OPERATOR 


2682 








; + 






2683 














2684 








IrOUTINE TO REQUEST AN 8 BIT DATA PATT'iRN FROM THE OPERATOR 


2685 














2686 








\ INPUTS 


. 




2687 














2686 










NONE, 




2689 














2690 








\ OUTPUTS: 




26*1 














2692 










RO 


OCTAL NUMBER FROM THE OPERATOR 


2693 














2694 
2695 








! CALLING SEQUENCE: 


2696 










JSR 


PC, GETPAT 


269 7 














2698 








• _ 






2699 














2700 


020014 






GETPAT: 


• 




2701 


020014 








'SAVPSG 


{SAVE THE GENERAL REGISTERS 


2702 


020020 






If: 


GMANID 


DATASC.PATDAT, 0,377, 0,377, NO 




020020 


104443 






TRAP 


CSGMAN 




020022 


000406 






BR 


10000* 




020024 


020050' 






.WL'RO 


PATDAT 




020026 


000022 






.WORD 


TSCODE 




020030 


020052' 






.WORD 


DATASC 




020032 


00037? 






.WORD 


377 




020034 


000000 






,WOPD 


T$LOLIM 



SEQ 078 



B7 



TSV5 GLOBAL AREAS 


MACRO t 


GETPAT 


- GET 8 


BIT PATTERN KR 




020036 


000377 






020040 






2703 


020040 








020040 


103367 




2 704 


020042 


013700 


020050 


2705 


020046 


000207 




2706 








2707 








2708 








2709 








2710 








2711 


C20050 


000000 




2712 


020052 


105 


116 


2713 








2714 








2715 








2716 








2717 








2718 








2719 








2720 








2721 








2722 








2723 








2724 








2725 








2726 








2727 








2728 








2729 








2730 








2731 








2732 


020076 






2733 


020076 






2734 


020102 


010002 




2735 


020104 


010203 




2736 


020106 


005713 




2737 


020110 


001412 




2738 


020112 








020112 


012346 






020U* 


012746 


020262 




020120 


012746 


000002 




020124 


010600 






020126 


104417 






020130 


r *2706 


000006 


2739 


020134 


000764 




2740 


020136 








020136 


104443 






020140 


000406 






020142 


020316' 






020144 


000042 






020146 


020267- 






020150 


177777 






020152 


oooooo 






020154 


177777 






020156 






2741 


020156 







11113 07-FEB-84 10$58 
OPERATOR 



SEQ 079 



10000*: 



.WORD TIHILIM 

BNCOMPLETE 1$ 

BCC 1» 

MOV PATDAT.RO 

RTS PC 



jRETRY IF ERROR 

iDATA PATTERN FROM OPERATOR 
tRETURN TO CALLER 



lLOCAL DATA AREA 



PATDATj .WORD 



i TEMPORARY STORAGE FOR DATA 



124 DATASCj .ASCIZ 'ENTER DATA PATTERN 
.EVEN 

.SBTTL GET5EL - ISSUE MENU ANO GET OPERATOR RESPONSE 



ROUTINE TO ISSUE A MENU ANO GET 
THE OPERATOR'S RESPONSE. 



INPUTS: 

RO 
Rl 

OUTPUTS? 

RO 



ADDRESS OF ASCI/ STRING OF MENU 
MAXIMUM ALLOWABLE OPERATOR RESPONSE 



NUMBER OF THE OPERATOR'S SELECTION 



GETSELu 



1$: 
21: 



3$: 



lOQQlli 



SAVREG 

MOV 

MOV 

TST 

BEQ 

PRTNTF 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

BR 

GMANID 

TRAP 

BR 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 



R0.R2 
R2.R3 
(R3) 
31 

♦SELASC.(R3)» 

(R5)»,-(SP) 

♦SELASC, -<SP) 

•2, (SP) 

SP.RO 

CIPNTF 

♦6.SP 

2» 

MENASC,MENRES,D, -1,0, -1, NO 

CIGMAN 

100011 

HENRES 

TICOOE 

MENASC 

-1 

TILOlIM 

HHILXM 



I SAVE GENERAL PEGISTERS 

I SAVE THE MENU ADORESS 

iSTART OF MENU STRING 

lENO OF ASCII ? 

iBRANCH IF ALL LINES DISPLAYED 

iDTSPLAY THE MENU 



BNCOMPLETE 



1» 



j RE TRY IF ERROR 



mkt ^igfeuPMBu n t w a <mMa* o im& lo,5B 



C7 



SEQ 080 



2742 

2743 
2744 

2745 



2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 

2779 

2780 



2781 
2782 
2783 
2 78* 
2785 



020156 
020160 
020164 
020166 
020170 
020170 
020174 
020200 
020202 
020204 
020210 
020212 
020214 
020262 
020267 



020320 
020320 
020324 
020324 
020326 
020326 
020330 
020330 
020334 
020340 
020342 
020344 
020350 
020352 

020354 



103352 
013700 
020001 
101411 

012746 

012746 

010600 

104417 

062706 

000735 

000207 

045 

045 

105 



020316 000000 



104450 

103411 

012746 
012746 
010600 
104417 
062706 
000241 
Q00207 

045 



020316 



020? 14' 
000001 



000004 



116 
116 
156 



045 
045 
164 



BCC 
MOV 
CMP 
BL05 
PRINTF 
MOV 
MOV 
MOV 
TRAP 
ADD 
BR 
5$: RTS 
MENERR: .ASCIZ 
SELASC: .ASCIZ 
MENASC: .ASCIZ 

.EVEN 
MENRES: 

♦SBTTL 



iGET THE OPERATOR'S REPLY 
» COMPARE TO MAXIMUM ALLOWED 
l BRANCH IF OK 
I DISPLAY ERROR MESSAGE 



II 

MENRES.RO 

RO f Rl 

5$ 

OMENERR 

♦MENERR, -(SP) 

•1,-CSP) 

SP.RO 

CIPNTF 

*4,SP 

II iRETRY 

PC i RE TURN TO CALLER 

'*N*A *♦* M«nu Selection Too Largs **+• 

'*N*T' 

•Ent«r M«nu Selection: • 

.WORD 

CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 



ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 
INPUT} 



NONE. 



OUTPUT; 



CARRY 



SIDE EFFECTS: 





1 



MANUAL INTERVENTION NOT ALLOWED 
MANUAL INTERVENTION IS OK 



A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
ALLOWED , 



CHKMAN: i 



SAVREG 

MANUAL 

TRAP CIMANI 

QCOMPLETE 1$ 



020354' 

OOOOOl 



000004 



116 



II: 

045 NQMANt 



ecs 

PRINTF 

MOV 

MOV 

MOV 

TRAP 

ADO 

CLC 

RTS 

.ASCIZ 



ONOMAN 

*NOMAN,-CSP) 

#1,-(SP) 

SP.RO 

CIPNTF 

*4,SP 

PC 



iSAVE THE REGISTERS 

l SEE IF MANUAL INTERVENTION OK 

iBRANCH IF ALLOWED 

iPRINT THE WARNING MESSAGE 



tCLEAR CARRY FOR ERROR 
I RE TURN 



f *N*A *** Manyal Intervention not Allowed - Test Aborted *** 



F 



"7 



TSV3 - GLOF.AL AREAS MACRO M1113 07-FEB-84 10;58 

KTINIT - SETUP KTll MEMORY MANAGEMENT REGISTERS 



SEQ 083 



2901 
2902 
2903 
2v04 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2931 
2936 
2937 
2938 
2939 
2940 
2941 
2942 



2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 



021026 

021026 
021032 
021036 
021042 
021046 

021054 
021056 
021062 
021064 
021072 
021074 
021100 
021102 
021106 
021110 
021116 
021120 
021126 
021130 
021134 
021136 
021144 
021146 
021152 
021160 
021166 
021170 
021174 
021176 
021200 
021200 
021204 
021210 
021212 
021214 
021220 



005037 
005037 
005037 
032737 

001050 
005737 
001407 
023727 
103406 
004737 
000427 
005737 
001413 
023727 
101027 
023727 
103403 
004737 
000411 
023727 
103414 
004737 
062737 
032737 
001014 
005237 
000411 
000410 

012746 
012746 
010600 
104417 
062706 
000207 



SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM 

INPUTS; 
OUTPUTS: 

The NXMFLG is set if w« con test. 

The NXMLO and NXMHI addresses are setup, 



MEMCK:: 



003134' 
003136' 
003140* 
1700C0 002120' 



003144' 

002120* 007777 

021222' 

003142' 1$: 

002120' 003777 2$: 

002120 003777 

021222' 

002120* 001577 4*: 

021222' 

000077 003140' 

177774 003140' 13$: 



003134 



005452' 

000001 



000004 



14$: 



15$: 



SAVREG 

CLR NXMFLG 

CLR NXMLO 

CLR NXMHI 

BIT 4170000, L$HIME 

BNE 14$ 

TST T23B 

BEQ 1$ 

CMP L$HIHE,C7777 

BLO 2$ 

JSR PC.NXMTST 

BR 131 

TST T23A 

BEQ 4$ 

CMP L$HIME, 05777 

BHI 14$ 

CMP LIHIME.C3777 

BLO 4$ 

JSR PCNXMTST 

BR 13$ 

CMP LJHIME. 01577 

BLO 14$ 

JSR PC.NXMTST 

ADO 077,r]XMHI 

GIT 0177774, NXMHI 

BNE ,r?$ 

INC NXMH.G 

BR 15$ 

BR 15$ 
PRINTF ONOiHM 

MOV e-NGMfcM, 

MOV 01, -('SP 

MOV SP MO 

TRAP C*; V|7 

A 00 04 : .P 

RTS PC 



. r 



SP) 



SAVE THE REGISTERS 

CLEAR THE FLAG 

CLEAR THE TEST ADDRESS LO 

CLEAR THE TEST ADDRESS HI 

CHECK FOR MORE THAN 18 BITS INDICATED 

FROM THE SUPERVISOR 

BR, IF MAP BOX ETC. 

IS IT A PROCESSOR TYPE B? 

NO 

GREATER THAN 128K 

NO 
SETUP TM£ ADDRESS 
SET THE FLAG AND EXIT 
IS IT A PROCESSOR TYPE A? 
NO 

GREATER THAN 96K 
YES.23A/23B WITH 128K MEMORY 
GREATER THAN 64K BUT LESS THAN 92K? 
NO, CHECK 24K 
SETUP THE ADDRESS 
SET THE FLAG AND EXIT 
GREATER THAN 24K BUT LESS THAN 64K? 
NO, TELL THEM AND EXIT WITH FLAG CLEAR 
SETUP THE ADDRESS 
FOOL THE 11/02 6 11/03 
ANY MORE THAN 18 BITS SET? 
BR, IF MORE THAN 18 BITS SET 
SET THE FLAG 
EXIT 

NOP FOR PRINTOUT 
TELL THEM 6 EXIT ***N0 PRINT***** 



jRETURN 



5Uf»fil. ,J ''VJE -.-TUP THE NXM ADDRESS FOR TESTING 
OUTPUTS tNXMLU.NXhHI »SETUP WITH NXM ADDRESS 



G7 
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KTINIT - SETUP KTil MEMORY MAKA» -FrF V REGISTERS 



2953 
2954 
2955 
2956 

2957 
2958 
2959 
?960 
2961 
2962 
2963 
2964 
2965 
2966 
2S67 
2968 
2969 
2970 
2971 



021222 
021226 
021232 
021236 



021254 



021304 
021310 
021314 



021316 



013701 
062701 
042701 
010102 
000006 



010137 
000012 



042702 
010237 
000207 



002120 
000200 
000177 



003136 



,177 700 
003140' 



NXMTST: 



SBQ 084 



MOV 


LIHIME.R1 


ADD 


0200, Rl 


BIC 


#177,R1 


MOV 


R1.R2 


,REPT 


6 


ASL 


Rl 


.ENOR 




MOV 


Rl.NXMLO 


,REPT 


10. 


ASR 


R2 


.ENOR 




BIC 


0177700, R2 


MOV 


R2,NXMHI 


RTS 


PC 



j GET TOP OF MEMORY 

j MAKE IT I/O BLOCK OR OTHER NXM 

iRESAVE RESULTS 

j PUT IN PLACl FOR XFER 

jSPVE TEST ADDRESS LOW 

j PUT IN PLACE FOR XFER 

iPON'T WANT ILA! 

tSAVE TEST ADDRESS HIGH 

, RETURN 



ENDMOD 
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KTINIT - SETUP KTll MEMORY MANAGEMENT REGISTERS 



SEQ 085 



6 

7 
8 

9 
15 
16 
17 

18 
19 
20 
21 
22 
23 
2* 
25 
26 
27 
28 
29 
JO 
31 
32 
33 
34 

35 

3f 

37 
38 
39 
40 
41 



42 

4.' 
44 
4i> 
46 
47 
48 
49 
50 
51 
52 
53 



54 



55 
56 



021316 
021316 



021316 
021316 
021316 
021326 



021326 
021326 
021326 
021332 
021336 
021344 
021350 
021354 
021360 
021360 
021364 
021366 
021366 
021370 
021376 
021400 
021404 
021406 
021412 
021414 
021420 
021422 
021430 
021432 
021432 
021434 
021436 
021436 
021442 
C21444 
021414 
021446 



177777 



005037 
005037 
0i2?37 
005037 
005037 
005037 

012700 
10*447 

103023 
023737 
103070 
005737 
'v0O472 
013701 
006301 
005761 
001516 
0327 t 
001060 

10*45;: 
0OO416 

012700 
104*47 

103C52 



TSV4:; 



.TITLE TSV4 - MISCELLANEOUS SECTIONS 
BGNMOD TSV4 



.SBTTL PROTECTION TABLE 
BGNPROT 
LSPROTjj 
177777 177777 .WORD -1, -1, -1, -1 

ENCr'ROT 

.SBTTL INITIALIZE SECTION 



I NO DEVICE PROTECTION REQUIRED. 



J ♦♦ 

j THE INITIALIZE SECTION CONTAINS THE COSING THAT IS PERFORMED 
;AT THE BEGINNING OF EACH PASS. 

t 



i\F "START" OR "RESTART 1 
j IF "CONTINUE". NOTHING 

i 
l -- 

j INSERT TEMPORARY JUMP TO ODT 
i - 



se: QUICK -PASS 
» REQUIRED. 



FLAG AND BUS-INIT. 



002224' 
003134' 
006170' 
003152' 
003132' 
002300' 

000036 



002200' 
003110' 
002200* 

003174' 
040000 



002176 



002012 



003174 



00C035 



BCNINIT 




L$INIT:j 




40* i CLR 


EXTFEA 


CLR 


NXMFLG 


MOV 


•EPRU.EPRTSW 


CLR 


SIFLAG 


CLR 


K TENABLE 


CLR 


RAMSIZ 


REAOEF 


*EF. CONTINUE 


MOV 


•ef.continue.ro 


TRAP 


CIREFG 


BNCOMPLETE 11 


BCC 


11 


CMP 


UNITN,L¥UNIT 


BKIS 


At 


TST 


DUFLG 


BMI 


NXTU 


MOV 


UNITN.Rl 


ASL 


Rl 


TST 


ERTABLCR1) 


BEQ 


SETU 


BIT 


*BIT14,ERTABL(R1) 


ONE 


NXTU 


EXIT 


INIT 


TRPr 


CIEXIT 


,UORD 


L 10030 -. 


1$: REACtF 


OEF, NEW 


MOV 


OEF,NEW,R0 


TRAP 


CIREFG 


BNCOMPLETE NXTU 


PCC 


NXTU 


READEF 


tfEF. START 



i SET UP PPIMARY MESSAGE FOR REPLACEMENT 

{CLEA3 "SOFT INTT" FLAG 

i CLEAN TEST ABOVE 28K FLAG 

j CLEAR RAM SIZE FOR RAMERR ROUTINE 



lUNXT IN RANGE? 
I BR IF no. 
i DROPPED UNIT? 
I BR IF YES 



{DROPPED? 

i DO NOTHING IF "CONTINUE", 



I TAKE NEXT UNIT IF NOT NEW PASS 



17 



TSV4 - t 


1ISCELLA 


NLOUS SECTIONS 


INITIALIZE SECTION 






021446 


012700 


000040 




021452 


104447 




57 


021454 








021454 


103404 




58 


021456 








021456 


012700 


000037 




021462 


104447 




59 


021464 








021464 


103031 




60 


021466 






61 


021466 








021466 


104433 




62 


021470 


005037 


002212* 


63 


021474 


005037 


002220' 


64 


021500 


005037 


004142* 


65 


021504 


005037 


003144' 


66 








67 








66 








69 


021510 


005037 


003376* 


70 


021514 






71 


021514 


012737 


l7'7->7 


72 


021522 


004737 


020450' 


73 


021526 


004737 


020536' 


74 


021532 


012700 


003174' 


75 


021536 


005020 




76 


021540 


020027 


003374' 


77 


021544 


103774 




78 


021546 


000404 




79 


021550 


005O37 


002202' 


80 


021554 


000137 


021624' 


81 








82 


021560 






83 


021560 


012737 


177777 


84 


021566 


005037 


002216' 


85 


021572 








021572 


104422 




86 


021574 


005237 


002200' 


87 


021600 


023737 


002200' 


88 


021606 


103423 




89 


0.71610 


012737 


177777 


90 


0."?L616 


000401 




91 


021620 








021620 


104444 




92 


021622 


000240 




93 


021624 






94 


021624 


023 727 


002012' 


95 


021632 


101752 




96 


021634 


005737 


002216' 


97 


021640 


001747 




98 


021642 








021642 


104421 




99 


021644 


032700 


oooioo 


100 


021650 


001343 




101 








102 


021652 








021652 


104424 
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SEQ 086 



002202 ' 



002200' 



002012' 
0C3110' 



000001 





MOV 


4EF. START, RO 




TRMP 


CiREFG 




BCOMPLETE 2$ 




BCS 


2$ 




REAOEF 


4EF, RESTART 




MOV 


4EF. RESTART, RO 




TRAP 


CSREFG 




BNCOMPLETE 31 * 


2$: 


BCC 


31$ 


BRF.SET 






TRAP 


CiRESET 




CLR 


TSTCNT 




CLR 


FATFLG 




CLR 


T23A 




CLR 


T23B 


i 


MOV 


4340, -CSP) 


\ 


MOV 


420$, -CSP) 


r 


JMP 


O.ODT 




CLR 


SKIPT 


20$- 








MOV 


4-1, QVP 




JSR 


PC.ENVIRN 




JSR 


pc,ktin:t 




MOV 


4ERTABL,R0 


30$ j 


CLR 


(RO)* 




CMP 


R0,4ERTABE 




BLO 


30$ 




BR 


4; 


31$: 


CLR 


QVP 




JMP 


PASRPT 


4$: 






NEWPAS: 


MOV 


•-1.UNITN 




CLR 


OEVCNT 


NXTU: 


BREAK 






TRAP 


C$BRK 




INC 


UNITN 




CMP 


UNim.LIUNIT 




BLO 


SETU 




MOV 


4-I.DUFLG 




OR 


11$ 




DOCLN 






TRAP 


CJUCLN 


11$: 


NOP 




PASRPT; 








CMP 


LIUNJT.41 




BLOS 


NEWPAS 




TST 


OEVCNT 




BEQ 


NEWPAS 




RFLAGS 


RO 




TRAP 


C$RFLA 




BIT 


4ISR.R0 




BNE 


NEWPAS 




DORPT 






TRAP 


CtOHPT 



j 1ST PASS. BUS-INIT... 
»BUS RESET. 

, NUMBER OF TESTS RUN IN PASS 
jCLEAR FuTAL ERROR COUNT 
, CLEAR PROCSSDR TYPE A FLAG 
, CLEAR PROCSSOR TYPE B FLAG 

, RETURN TO DEBUGGER 
m^QENTER THE DEBUGGER 
I CLEAR THE SUBTES1 *'SKIPPlR" 

;... QUICK VERIFY... 

i SET ENVIRONMENT. 

j INITIALIZE KT MEMORY MANAGEMENT 



CLEAR THE ERROR TABLE 



j GO REPORT THE STATUS 



jINIT UNH NUMBER. . . 

;CLEAR COUNT QF DEVICES RUNNING 



1...AND SET NEXT UNIT NUMBER. 



jABORT. NO MORE UNITS. 



jHOW MANY UNITS SELECTED? 
>BR IF ONLY 1 
t ARE ANY STILL RUNNING? 
» BR IF NO 



i SHOULD WE PRINT STATISTICS 
t8R IF NO 



J7 



TSV4 - MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 



MACRO 



103 021654 

104 021656 
105 

106 021656 
021656 
021662 

107 021664 
021664 

108 021666 

109 021672 

110 021676 

111 021700 
112 

113 021704 

114 

115 

116 021706 

117 021712 

118 021716 
119 

120 021722 

121 

122 

123 

124 

125 

126 

127 

128 021722 

129 021726 

130 021730 

131 021736 

132 021742 

133 021750 

134 021752 
021752 

135 021754 

136 021760 

137 021762 
021762 
021766 
021772 
021776 
022000 
022002 

138 022006 

139 022006 

140 022012 

141 022016 

142 022020 

143 022024 

144 022030 

145 022032 

146 0^2036 

147 052044 
148 

149 



000741 



013700 
104442 

103342 
005037 
0052 J 7 
012001 
010137 

012001 



010137 
012721 
013Y21 



013701 
006301 
052761 
00*5037 
023727 
101416 

104421 
032700 
001412 

013746 
012746 
012746 
010600 
104417 
062706 

00503/ 
013701 
010102 
062702 
004737 
103005 
010137 
012737 



002200 



003110 
002216 

002204 



002206' 
016026' 
002210* 



113 


07-FEB-84 


10:58 




BR 


NEWPAS 


10$: 






SETU: 


GPHARD 


UNITN.KO 




MOV 


UNITN.RO 




TRAP 


CtGPHRD 




BNCOMPLETE NXTU 




BCC 


NXTU 




CLR 


DUFLU 




IHC 


DEVCNT 




MOV 


(RC)»,R1 




MOV 


R1.C3RADDR 



SEQ 087 



MOV 

i MOV 

;MOV 

MOV 

MOV 

MOV 



(R0)*.R1 

(R0),R2 

R2.IPRI 

Rl.IVEC 

»INTR,(R1)* 

IPRI.CR1)* 



jGET UNIT N P-TABLE POINTER. 

;BR IF UNIT NOT AVAILABLE. 

t r LEAR "DROPPED " FLAG, 

jGET 1ST REGISTER ADDRESS. 

I ADDRESS OF REGISTERS Of- UNIT UNDER TEST 

iGET VECTOR AODRESS. 

jGET INTERRUPT PRIORITY 

i SET INTERRUPT PRIORITY. 

iSET INTERRUPT VECTOR POINTER... 

j... VECTOR. .. 

;.. .AND PRIORITY. 



TST 
BEQ 



QVP 
5* 



t 1ST PASS ?? 

{NO, SKIP THE PASS 1 STUFF. 



002200' 

100000 003174' 
005602* 
002012' 000001 



001000 



II: 

i 

j 1ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID. AKt) 
;THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 

I 



002200 
022054 
000002 



000006 

003112 
002204 

000002 
016206 

003112 
177777 



10$: 



003110' 



2$j 



MOV UNITN.R1 

ASL Rl 

BIS *eiT15,ERTA6L(Rl) 

CLR EXTA 

CMP L$UNIT,01 

BLOS 10* 

RFLAGS RO 

TRAP CtRFLA 

BIT *PNT,RO 

BEQ 10$ 

PRINTF #PUNIT,UNITN 

MOV UNITN.-(SP) 

MOV *PUNIT,-(SP) 

MOV 02,-CSP) 

MOV SP.RO 

TRAP CIPNTF 

ADD 06.SP 

CLR NODEV 

MOV CSRADDR.Rl 

MOV R1.R2 

ADD 0TSSR.R2 

JSR PC.XNXM 

BPC 2$ 

MOV Rl. NODEV 

MOV »-l,DUFLG 



j SAY DEVICE RUNNING 

j CLEAR ERROR EXTENSION FLAG. 

j ARE WE TESTING MULTIPLE UNITS? 

;BR IF NO. 

; YES -- GET OPERATOR FLAGS. 

-.SHOULD WE PRINT UNIT *? 

j BR IF NOT. 

j PRINT THE UNIT * 



I ADDRESS OF FIRST REGISTER 

j START OF REGISTERS 

jADDRiSS OF TSSR REGISTER 

jTEST BOTH CONTROLLER REGISTFRS. 

I . . ,ANO BR IF ALL OK. 

{FLAG DEVICE AS NON-EXISTENT 

{DROP THIS UNIT, 



{FINALLY, SET CPU PRIORITY AND WE'RE DONE. 



I<7 
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SEQ 088 



150 
151 



152 



153 

154 
155 
15b 
157 
158 
159 
160 
161 
162 
163 
164 

165 

166 
167 
168 
169 



170 



171 

172 
173 
174 



175 
176 
17? 
178 
179 
180 
181 
182 
183 
184 
185 
186 

187 
188 
189 
190 



022044 
022044 
022050 
022052 
02205? 
022052 

022054 



022122 
022122 
022122 
022124 
022126 
022134 
022142 
022142 
022144 
022150 
022154 
022156 
C22160 
022161 
02216** 
022 if ^ 
0221 70 



022216 
022216 
02221b 



022220 
022220 
022220 
022226 
022230 
022232 



012700 
104441 



104411 
045 



010001 
006301 
052761 
042761 

010046 
012746 
012746 
0106CO 
104417 
062706 

000167 

000026 

045 



104452 



012737 
010001 
006301 
052761 



000000 



116 



045 



100000 
040000 



022170 
000002 



000006 



003174 
003174 



116 



SETPRI 
MOV 
TRAP 
ENOINIT 

TRAP 

.ASCIZ 
.EVEN 



♦PR 100 

#PRI0O,RO 

C*SPRI 



lENAGLE INTERRUPTS. 



5$: 

L 10030: 

PUNITt 

i ** 

; THE ADD -UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 

; TO BE (A) ADDED TO THE TEST LIST FOR THE FIRST TIME, 

i OR CB) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 



C$INIT 

/*N*N#A***** TESTING UNIT *D2*A +**++/ 



.SBTTL ADD AND DROP UNITS SECTIONS 



L$AUt 



BGNAU 



045 1$ 



MOV 


R0.R1 


ASL 


Rl 


BIS 


#100000, ERTABLCR1) 


BIC 


♦40000, ERTABLCR1) 


PRINTF 


#1$,R0 


MOV 


RO.-CSP) 


MOV 


♦n.-csP) 


MOV 


#?.-(SP) 


MOV 


SP.RO 


TRAP 


CJPNTF 


ADD 


#6,SP 


EXIT 


AU 


.WORD 


JUMP 


.WORD 


L10031-2 . 


.ASCIZ 


/*N*A UNIT *D*A ADDED/ 


.EVEN 




ENDAU 


; UNUSED. 


TRAP 


C$AU 



; GET UNIT TO BE ADDED CRO) 

; MAKE IT A WORD INDEX 

; SET THE "ACTIVE" BIT 

j CLEAR THE "DROPPED" BIT 



L10031 



THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST. 

SUPVS* DOES THE "DROPPING", THIS IS JUST TO TELL THE MAN, 
"DROPPED" UNITS ARE RE-SELECTED ON OPERATOR "STA" OR "ADD" 
COMMANO, OTHERWISE REMAIN INACTIVE. THE 'DISPLAY COMMAND 
WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE 
WHICH ARE STILL ACTIVE. 
UPON EfiTRY, RO CONTAINS THE UNIT TO BE DROPPED. 



177777 
140000 



003110 
003174 



'-$DUj: 



BGNDU 

MOV 
MOV 
ASL 
BIS 



#-l,DUFLG 

R0.R1 

Rl 

♦140000, ERTABLCR1) 



SAY DROPPED 



L7 



T5V4 - MISCELLANEOUS SECTIONS MACRO M1113 07-FEB-84 10:58 
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SEQ 089 



191 
192 



195 



194 
195 
196 



197 
198 
199 
200 

201 
202 
203 
204 
20b 



206 
2C7 

208 
209 
210 



;jh 

212 
213 
214 
215 
216 
217 

2ie 

219 

220 
221 

222 
223 



022240 
022246 
022246 
022250 
022254 
022260 
022262 
022264 
022270 
022270 
022272 
022274 

022324 
022324 
022324 



022326 
022326 
022326 
022332 
022336 
022342 
022344 
022344 
022350 
022352 
022356 
022360 
022364 
022366 
022372 
022374 
022376 
022400 
022404 
022404 
022404 
022404 



000240 000240 000240 



022406 
022406 

022406 
022412 
022416 



010046 
012746 
012746 
010600 
104417 
062706 

000167 

000030 

045 



104453 



240.^40,240 
PR.TNTF 01$, RO 



i ????????? 



013705 
012703 
0O4737 
103420 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005303 
001357 
004737 



104461 



022274' 
000002 



000006 



116 



045 1$ 



002204' 

000550 

016060' 



000372 
002U6' 
177772 
177756 

017014 



L 10032: 



MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

EXIT 

.WORD 

.WORD 

,ASCIZ 

.EVEN 

ENDDU 

TRAP 



RO.-CSP) 

*1$.-(SP) 

02,-CSP) 

SP.RO 

C$PNTF 

06, SP 

DU 

JlJhP 

L10032-2-. 

/*N*A UNIT *D*A DROPPED/ 



CIOU 



♦ * 



AUTO-DROP CODE SECTION. 



BGNAUTO 
L*AUTO: i 

MOV 

MOV 
10$: JSR 

BCS 

DELAY 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

DEC 

BNE 

JSR 
20$: 

ENOAUTO 
L10033: 

TRAP 



CSRADDR.R5 

*360. ,R3 

PC.WAITF 

20$ 

250. 

#250. ,CPC>» 



L IDLY, (PC)* 



-6CPC) 

. »4 

-22CPC) 

. -20 

R3 

10$ 

PC.CKDROP 



C$AUTO 



{POINT TO DEVICE REGISTER 

ENOUGH TIME FOR 2400* REEL TO REWIND 

WAIT FOR SSR TO SET 

LEAVE WHEN SSR IS SET 
j WAIT FOR .25 SECONDS 



BUMP COUNTER DOWN 

KEEP GOING 

TRY AND DROP UNIT 



UNUSED. 



.SBTTL CLEAN-UP AND REPORT CODING SECTIONS 



♦ * 



i THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS 

j EXECUTED AT THE END OF EACH PASS (OR SUB-PASS). 

j USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 



224 

225 022420 



013705 002204' 
005 73 7 003110' 
100405 



012 765 000000 000002 



BGNCLN 
L$CLEAN: : 

MOV CSRADDR,R5 
TST DUFLG 
BMI 1$ 



MOV 



flO,TSSR(RS) 



{POINT TO DEVICE REGISTER 
-•DROPPED" FLAG IS SET ON... 
{...AND GROSS CONTROLLER FAULT... 
{...DON'T TRY TO XCT CLEANUP CODE, 

jDO SOFT 1NIT 



TSV4 - MISCEL.LANJ 
CLEAN-UP AND REP< 



: fi¥ s ~5ECJI°H5«.r macro mhi3 

IRT CODING SECTIONS 



M7 
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SEQ 090 



226 


022426 


004737 


016060' 


227 


022432 






228 


022432 
022432 








022432 


104412 




229 








230 








231 








232 








233 


022434 
022434 






234 


02243^ 








022434 


012746 


022676' 




022440 


012746 


000001 




022444 


010600 






022446 


104416 






022450 


062706 


000004 


235 


022454 


010246 




236 


022456 


010346 




237 


022460 


010446 




238 


022462 


012704 


003174' 


234 


022466 


005003 




240 


022470 


011402 




241 


022472 


001467 




242 


0224 74 


100066 




243 


0224 76 


032702 


040000 


244 


022502 


001015 




245 


022504 


042702 


170000 


246 


022510 








022510 


010246 






022512 


010346 






022514 


012746 


022733' 




022520 


012746 


000003 




022524 


010600 






02252*> 


104416 






022530 


062706 


000010 


24 7 


C22534 


000446 




248 


022536 


020227 


160000 


249 


022542 


001012 




250 


022544 








022544 


010346 






022546 


012746 


023003' 




022552 


012746 


000002 




C22556 


010600 






022560 


104416 






022562 


062706 


000006 


251 


022566 


000431 




252 


0225/0 


020227 


160001 


253 


022574 


001012 




254 


022576 








022576 


010346 






022600 


012746 


023065' 




022604 


012746 


000002 




022610 


010600 






022612 


10441.-'. 






02261 A 


O'^VOo 


000006 


255 


022620 


000414 





JSR 
1*: 

2t: ENDCLN 
L10034: 

TRAP 



PC.WAITF 



CiCLEAN 



I ♦♦ 



THE REPORT CODING SECTION CONTAINS THE 

•PRINTS" CALLS THAT GENF.RATE STATISTICAL REPORTS 



L$RPTj 



1$ 



2$ 



3$ 



BGNRPT 



PRINTS 


ODEVSUM 


MOV 


ODEVSUM, -CSP) 


MOV 


01. -CSP) 


MOV 


SP.RO 


TRAP 


lJPNTS 


ADD 


04. SP 


MOV 


R2.-CSP) 


MOV 


R3.-CSP) 


MOV 


R4.-CSP) 


MOV 


0ERTABL.R4 


CLR 


R3 


MOV 


CR4),R2 


BEQ 


4$ 


bPL 


4$ 


3IT 


OBIT14,R2 


BNE 


2$ 


BIC 


OtC777?,R2 


PRINTS 


0DEV0NL.R3.R2 


MOV 


R2,-CSP) 


MOV 


R3, -CSP) 


MOV 


ODEV0NL,~CSP) 


I :0V 


#3. -CSP) 


NOV 


SP,RO 


TRAP 


C$PNT5 


ADD 


010, SP 


BR 


41 


CMP 


R2, 0160000 


BNE 


T, * 


PRINTS 


tf rv -.VNXR,R3 


MOV 


R3, -CSP) 


MOV 


fQEVNXR, -CSP) 


MOV 


V»2,-CSP) 


MOV 


SP.RO 


TRAP 


CiPNTS 


ADD 


06,SP 


BR 


4$ 


CMP 


R2, 0160001 


BNE 


30$ 


PRINTS 


0DEVNRD.R3 


MOV 


R3, -CSP) 


MOV 


ODEVNRD. -CSP) 


MOV 


02, -CSP) 


MOV 


SP.RO 


TRAP 


CSPNTS 


ADD 


06, SP 


BR 


4$ 



j GET START OF ERROR TABLE. 

} CLEAR UNIT NUMBER 

j GET ERROR t MdLF ENTRY 6 TEST IT 

; ZERO IF UNIT Kjl RUN 

t WAS UNIT DROPPED? 
j BR IF YES 

i GET ERROR COUNT FIELD 
j PRINT 



j WAS UNH NON-EXISTENT? 
• BR IF NO 



WAS UNIT NOT READ> AT STARTUP? 
8R IF NO. 



N7 



TSV4 - MISCELLANEOUS J 
CLEAN-UP AND REPORT Cl 



iECTIONS MACRO M1113 
IDING SECTIONS 
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SEQ 091 



256 
257 



258 
259 
260 
261 
262 
263 
264 
265 



266 
267 
266 
269 
270 
271 
272 
273 
274 
275 
276 
277 
276 



022622 
022626 
022626 
022630 
022632 
022636 
022642 
022644 
022646 
022652 
022656 
022660 
022664 
022666 
022670 
022672 
022674 
022674 
022674 



022676 
022733 
023003 
023065 
023146 



023216 



042702 170000 



30$ t 



010246 
010346 
012746 
012746 
010600 
104416 
062706 
002704 
005203 
020427 
103701 
012604 
012603 
012602 



104425 



045 
04 5 
045 
045 
045 



023146 
000003 



000010 
000002 

003374' 



116 
101 
101 
101 
101 



4$; 



L10035 



045 DEVSUM 

040 DEVONL 

040 DEVMXR 

040 DEVNRD 

040 DEVDRO 



BIC 


fltC7777,P2 


PRINTS 


ODEVDR0,R3,R2 


MOV 


R2.-CSP) 


MOV 


R3,-(SP) 


MOV 


0DEVDRO.-CSP) 


MOV 


03, -CSP) 


MOV 


SP,RO 


TRAP 


CJPNTS 


ADD 


010, SP 


ADD 


02.R4 


INC 


R3 


CMP 


R4,V>ERTABE 


8L0 


1* 


MOV 


(SP)*,R4 


MOV 


(SP)+,R3 


MOV 


(SP)f ,R2 


ENDRPT 


j UNUSED, 



TRAP 



.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 

ENDMOD 



C$RPT 



/*N*ALEVICE STATUS SUMMARY :*N/ 

/*A UNIT *D3*A ONLINE, ERRORS - *D*N/ 

/#A UNIT *D3#A DROPPED, NON-EXISTENT REGISTERS/ 

/*A UNIT *D3*A DROPPED, NOT READY AT STARTUPS/ 

/*A UNIT *D3*A DROPPED, ERRORS * *D*'N/ 
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CLEAN-UP AND REPORT CODING SECTIONS 
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SEQ 093 



1 

2 

9 

10 

16 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
SO 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 

69 
70 

71 
72 
73 
74 
75 



023216 
023216 



TSV5n 



023216 
023216 
023216 
023222 
023226 
023234 
023234 

023236 
023236 

023236 



012700 
004737 

012737 

005003 



X04402 



023414* 
016322' 
00002* 



002214' 



TILQOPi 



•TITLE TSV5A - HARDWARE TESTS 



BGNHCH TSV5 



♦SBTTL TEST It BUS RESET TEST 



THIS TEST VERIFIES THAT THE M7455 MODULE'S DEVICE REGISTERS ARE 
ACCESSIBLE ON THE BUS (SUBTEST 1) AND THEN CHECKS THAT THE 
BUILT-IN INITIALIZATION SELF -TEST Ml CROC* I AGNOSTIC DID NOT FIND 
ANY BASIC PROBLEMS IN THE MOOULE . AREAS OF LOGIC TESTED BY THE 
SELF -TEST SEQUENCE ARE AS FOLLOWS t ROM AND PIPELINE REGISTER, 
SEQUENCER. INTERNAL BUSES, 2901 MICROPROCESSOR, AND. RAM. THIS 
TEST INITIALIZES THE CONTROLLER BY ISSUING THE BUS INIT SIGNAL 
VIA A RESET INSTRUCTION, OR BY WRITING INTO THE TSSR REGISTER, 
WAITS A PERIOO OF TIME (TO ALLOW THE CONTROLLER'S INITIALIZATION 
MICROOIAGNOSTIC SEQifcNCE TO BE COMPLETED), AND THfH CHECKS THE 
CONTENTS OF THE TSSR REGISTER. SUCCESSFUL INITIALIZATION IS 
INDICATED BY SUBSYSTEM READY CS5R) AND NEED BUFFER ADORESS (NBA) 
BITS BEING SET (1) AND ALL OTHEPl BITS (EXCEPT A17 AND A16 AM) 
OFL, WHICH ARE IGNORED FOP THIS TEST) BEING CLEAR (0). IF THE 
CONTENTS OF TSSR ARE NOT AS EXPECTED, AN ERROR REPORT IS ISSUED 
LISTING THE EXPECTED DATA, ACTUAL DATA, ANO THE DISCREPANCIES, 
THE ERROR REPORT ANALYZES THE TSSR CONTENTS ANO DISCERNS ANO 
REPORTS ONE OF THREE POSSIBILITIES: 



1. TSSR CONTENTS APE AMBIGUOUS (ANY OF BITS 11-14 ARE SET. 
OR STATES OF SSR ANO SC BITS DO NOT CORRESPOND TO THE 
APPARENT ERROR CODE IN BITS 0-5): INDICATES THAT THE 
TSSR CONTENT CANNOT BE TRUSTED. INDICATES A 
CATASTROPHIC CONTROLLER MALFUNCTION. THIS IS A FATAL 
ERROR (EXECUTION IS ABORTED). FIELD ACTION WOULD BE TO 
REPLACE THE M7455. IF THE M7455 ITSELF IS BEING 
DEBUGGED, THE PROGRAM SHOULD BE RESTARTED WITH LOOP ON 
ERROR ENABLED IN ORDER TO PROBE FOR THE PROBLEM. 

2, SSR ■ 0. SC • ANO THE ERROR COOE IN BITS 0-5 IS IN 
THE RANGE 17-13: THIS IS A FATAL ERROR. Te* ERROR 
COOE IS DECODED ANO THE APPROPRIATE DESCRIPTION GIVEN, 
INDICATES THAT A SERIOUS PROBLEM EXISTS, 



8GNTST 

MOV 
JSR 
MOV 

CLR 
BGNSU6 



•TST1ID.R0 

PC.TSTSETUP 

O2O, f L00PCNT 



Tlx : 

lASCII MESSAGE TO IDENTIFY TEST 
iDO INITIAL TEST SETUP 
, PERFORM 20 ITERATIONS 

I USE R3 AS FATAL ERROR FLAG 

,/////.////// BEGIN SUBTEST >////■'/■■ 

TRAP C»B5UB 



C8 



nir ismmtPHh 


MACRO MU13 


76 






77 023240 






023240 


104433 




78 023242 


004737 


016060' 


79 023246 


016501 


000002 


80 023252 


010102 




81 023254 


042702 


176277 


82 023260 


052702 


002200 


83 023264 


020102 




84 023266 


001405 




88 023270 






023270 


104455 




023272 


000145 




023274 


003677' 




023276 


01171.2* 




89 023300 


005203 




90 023302 






91 023302 






023302 






023302 


104403 




92 






93 023304 


005703 




94 023306 


001402 




95 023310 


004737 


017014' 


96 023314 


005003 




97 






98 






99 023316 






023316 






023316 


104402 




100 






101 023320 


005065 


000002 


102 023324 


0O4737 


016060' 


103 023330 


016501 


000002 


104 023334 


010102 




105 023336 


042702 


176277 


106 023342 


052702 


002200 


107 023346 


020102 




108 023350 


001405 




112 023352 






023352 


104455 




023354 


000146 




023356 


003644' 




023360 


OJ.1/12' 




113 023362 


005203 




114 023364 






115 023364 






023564 






023364 


104403 




116 






117 






118 023366 


005703 




119 023370 


001402 




120 023372 


004737 


017014- 


121 023376 


004737 


0162 70' 


122 025402 


103002 




123 033404 


000137 


023234' 
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BRESET 



10$: 



20$: 



JSR 
MOV 
MOV 
BIC 
BIS 
CMP 
BEQ 
ERRDF 


PC.UAHF 
TSSRCR5),R1 
Rl R2 

»tC<HIADDR!0FL> f R2 
♦SSR!N6A,R2 

R1.R2 

101 

ERRN0.3FHERR, SFFMSG 


INC 


R3 


ENOSUB 




TST 
BEQ 
JSR 
CLR 


R3 
20$ 

PCCKDROP 
R3 



BGNSU6 



10*: 



CLR 


TS3RCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


R1.R2 


BIC 


♦ tC<HlADDR»0Ft.>,R2 


BIS 


♦SSRJNBA.R2 


CMP 


R1.R2 


BEQ 


10$ 


ERRDF 


ERRNO.SFIERR, SFFMSG 


INC 


R3 


ENDSUB 





30* s 



TST 


R3 


BEQ 


20$ 


JSR 


PC.CKDROP 


JSR 


PC, TSTLQOP 


BCC 


40$ 


JMP 


TILOUP 



j ISSUE A BUS RESET 

TRAP 

I WAIT FOR READY 

iGET TME CONTENTS OF TSSR 

I CONTENTS OF TSSR 

I THESE BITS MAY BE SET 

» READY AND NEW DATA SHOULD BE 

I COMPARE EXPECTED TO RECEIVED 

l BRANCH IF COMPARE 

tREPORT A FATAL ERROR 

TRAP 
.WORD 
.WORD 
.WORD 

I SET THE FATAL ERROR FLAG 



SEQ 093 



CIRESET 



SET 



C*ERDF 

101 

SFHERR 

SFFMSG 



l\\\\\\\\\\\\\ ENO SUBTEST WWWWWSW 

L10037: 

TRAP ClESUB 

I DID WE HAVE FATAL ERROR ? 
I BRANCH IF NOT 

I GO DROP THIS UNIT. IF ALLOWED 
jRESET FATAL ERROR FLAG 



l//////////// BEGIN SUBTEST //////////// 

T1.2i 

TRAP C$BSUB 

iWRITE TO ISSUE A SOFT RESET 

I WAIT FOR READY TO SET 

iGET REGISTER TSSR DATA 

tCONTENTS OF TSSR 

i THESE BITS MAY BE SET 

jREADY AND NEW DATA SHOULD BE SET 

i COMPARE EXPECTEO TO RECEIVED 

I BRANCH IF COMPARE 

I REPORT A FATAL ERROR 



TRAP 


C$ERDF 


.WORD 


102 


.WORD 


SFIERR 


.WORD 


SFFMSG 



I SET THE ERROR FLAG 

i\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L1OO40: 

TRAP C*ESU8 



iFATAL ERROR DETECTED ? 

i BRANCH IF NOT 

jSEE IF TIME TO DROP UNIT 

i SHOULD WE DO ITERATIONS ? 

(BRANCH IF NOT 

j LOOP UNTIL COUNT EXPIRED 



TSV5A - HARDWARE TESTS MACRO M1113 
TEST 2; WRAP DATA - HIGH BYTE 
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231 023660 

235 023662 
023662 
023664 
023666 
023670 

236 023672 
237 

238 023674 
023674 
023674 

239 

240 023676 

241 023700 

242 023702 

243 023706 

244 023710 

245 023714 
023714 
023716 

246 
247 
248 
249 
250 

251 023720 

252 023765 

253 024032 

254 024104 
255 

256 024132 
024132 
024132 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 



001405 

104456 
00031.* 

023720' 
015304' 
005203 



104405 

105204 

001270 

004737 016270' 

103002 

000137 023454' 

104432 
000214 



35$: 



40$: 



i ♦ 



BEQ 35$ 

ERRHRD ERRNO , T2TSBA , EXPREC 



INC R3 

ENDSEG 



INCB R4 

BNE 5$ 

JSR PC.TSTLOOP 

BCC 40$ 

JMP T2L00P 

EXIT TST 



j ERROR IF NOT EQUAL 

j PRINT THE ERROR £ F.XPD/RECV 

TRAP 
.WORD 
.WORD 
.WORD 

I FORCE SOFT INIT ON NEXT PASS 



SEQ 096 



C$ERHRD 
204 

T2TSBA 
EXPREC 



!<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C5ESEG 

>NEXT DATA PATTERN TO TEST 

I BRANCH TILL BACK TO ZERO 

I SHOULD WE DO ITERATIONS ? 

I BRANCH IF NOT 

j LOOP UNTIL COUNT EXPIRED 

I ALL DONE THIS TEST 

TRAP C$EXIT 
.WORD L10041-. 



jLOCAL TEXT MESSAGES FOR TEST 



124 
124 
116 
127 



104401 



123 
123 
157 
162 



102 
123 
040 
141 



T2TSBA: 
T2TSSR: 
T2SSR: 
TST2ID: 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

ENDTST 



•TSBA Incorrect After TSDB High Write* 

'TSSR Incorrect After TSDB High Write' 

•No Sub-System Reedy After TSDB High Write 1 
•Wrap Data - High Byte' 



L 10041: 



TRAP 



C$ETST 



♦SBTTL TEST 3: WRAP DATA - LOW BYTE 



THIS TEST FURTHER VERIFIES OPERATION OF MANY OF THE SAME 
ELEMENTS TESTED IN TEST 2, AND ADDITIONALLY VERIFIES: 

1. LOW BYTE OF THE TSDB INPUT FIi.E REGISTER, 

2. LOW BYTE OF INTERNAL DAL BUS DRIVERS ON THE DC005 
TRANSCEIVER CIRCUITS, 

3. BASIC FUNCTIONING OF PARTS OF THE RAM, 



THE PROGRAM WRITES A TEST DATA BYTE INTO THE LOW BYTE OF TSDB, 
WAITS FOR THE SSR BIT IN TSSR TO SET, THEN CHECKS THE CONTENTS 
OF BOTH TSBA ANO TSSR. THE MODULE IS FUNCTIONING CORRECTLY IF 
DATA WRITTEN APPEARS IN BOTH BYTES OF TSBA ANO THE FINAL CONTENT 
OF TSSR IS CORRECT (SAME AS AFTER INITIALIZATION EXCEPT FOR BITS 
8 AND 9, WHICH SHOULD CONTAIN BITS 8 ANO 9 OF THE DATA PATTERN 
WRITTEN, AN ERROR IS REPORTED AND A DESCRIPTIVE ANALYSIS GIVEN 
IF A DISCREPANCY IN TSBA OR TSSR IS DETECTED. THE ANALYSIS 



G8 
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SEQ 097 



281 








282 








283 








284 








285 


024134 
024134 






290 


024134 


012700 


024577 


291 


024140 


004737 


016322 


292 


024144 


012777 


000024 


293 


024152 


005004 




294 


024154 


012703 


000001 


295 


024160 


005703 




296 


02-162 


001412 




297 


02-*. 164 


005003 




298 


024166 


004737 


015604 


299 


024172 


103406 




303 


024174 


010001 




304 


024176 








024176 


101455 






02'20C 


000455 






024202 


003644' 






024204 


011644' 




305 


024206 


005203 




306 


024210 


005037 


002220 


307 








308 


024214 








024214 


104404 




309 








310 


024216 


110465 


000000 


311 


024222 


004737 


016060 


312 


024226 


103411 




313 


024230 


010001 




314 


024232 


010402 




318 


024234 








024234 


104455 






024236 


000456 






024240 


024526' 






024242 


015304' 




319 


024244 


005203 




320 


024246 


005237 


002220 


321 


024252 








024252 


104406 




322 


024254 


005737 


002220 


323 


024260 


001402 




324 


024262 


004737 


017014 


325 


0242**6 


0^0402 




326 


0242"' 


042702 


177774 


:, c7 


02427 . 


0003 f o** 




■ii:* - * 


024^76 


052702 


002200 


S21 


024301* 


016501 


000002 


330 


024306 


032701 


000100 


331 


C24312 


001402 




332 


024314 


052702 


000100 


333 


024320 


020201 




334 


024322 


001405 




338 


024 324 








024324 


104456 





LISTS LIKELY FAULT* CANDIDATES FROM THE LOGIC ELEMENTS LISTED 
ABOVE. THE TEST IS REPEATED FOR ALL COMBINATIONS 0?* TEST DATA 
BYTES (0-377 OCTAL), 



BGNTST 



002214 



MOV 


*TST3ID,R0 


JSR 


PC.TSTSETUP 


MOV 


*20.,LOOPCNT 


T3L00P: CLR 


R4 


MOV 


#1,R3 


5$: TST 


R3 


BEQ 


10$ 


CLR 


R3 


JSR 


PC.SOFINIT 


BCS 


10* 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



10$: 



INC 
CLR 

BGNSEG 



15$: 



20$: 



25$: 



R3 
FATFLG 



MOVB 


R4.TSDBCR5) 


JSR 


PC.UAITF 


BCS 


15$ 


MOV 


R0.R1 


MOV 


R4.R2 


ERRDF 


ERRN0.T3SSR.EXPREC 



INC 


R3 


INC 


FATFLG 


CKLOOP 




TST 


FATFLG 


BEQ 


20$ 


JSR 


PC.CKDROP 


MOV 


R4.R2 


BIC 


0tC<BIT0!BITl>,R2 


SWAB 


R2 


BIS 


*SSR!NBA,R2 


MOV 


TSSRCR5),R1 


BIT 


♦0FL.R1 


BEQ 


25$ 


BIS 


00FL.R2 


CMP 


R2.R1 


BEG 


30$ 


ERRHRD 


ERRN0.T3TSSR.EXPREC 



T3:: 

j ASCII MESSAGE TO IDENTIFY TEST 

(DO INITIAL TEST SETUP 

I PERFORM 20 ITERATIONS 

{STARTING DATA PATTERN 

I FORCE SOFT INIT ON FIRST PASS 

I SET IF INIT IS REQUIRED 

i BRANCH IF NO INIT NEEDED 

I ASSUME NO INIT NEEDED ON NEXT LOOP 

l DO SOFT INIT OF CONTROLLER 

I BR IF SOFT INIT « OK 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP C$ERDF 
.WORD 301 
.WORD SFIERR 
.WORD SFIMSG 

{FORCE INIT ON NEXT PASS 

I CLEAR FATAL ERROR FLAG 

!>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP C$BSEG 

i SET MAINT MODE ♦ WRITE DATA 

(WAIT FOR SSR TO SET 

j BR IF CARRY SET CGOOO RETURN) 

I SAVE CONTENTS OF TSSR 

{DATA THAT WAS WRITTEN 

{DEVICE FATAL SSR FAILED TO SET 

TRAP 

.WORD 

.WORD 

.WORD 
{FORCE INIT ON NEXT PASS 
{SET THE FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG SET 

TRAP 

{DID WE GET FATAL ERROR ? 
{BRANCH IF NOT 
jDRCP UNIT, IF DROP ALLOWED 
{DATA PATTERN WRITTEN 
{CLEAR ALL BUT LOW 3 BITS 
iBITS 8 AND 9 HAVE LOW DATA BITS 
{THESE BITS MUST BE SET ALSO 
{GET THE CONTENTS OF TSSR 
I IS DRIVE OFF-LINE 
{BRANCH IF NOT OFFLINE 
{SET OFF-LINE IN EXPECTED 
{DOES EXPECTED MATCH RECEIVED ? 
I OKAY IF MATCH 
j TSSR WASN'T CORRECT 

TRAP C$ERHRD 



C$ERDF 
302 
T3SSR 
EXPREC 



C$CLP1 
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07-FEB-84 10;56 



339 

340 

341 
342 
343 
344 
34 5 
.W, 
347 
351 



352 

35? 
354 



355 
356 
357 
358 
359 
360 
361 



362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 



373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 



024326 
024330 
024332 
024334 
024336 
024336 
024340 
024344 
024346 
024350 
024352 
0*4354 
024356 
024360 
024360 
024362 
024364 
024366 
024370 

024372 
024372 
024372 

024374 
024376 
024400 
024404 
024406 
024412 
024412 
024414 



024416 
024462 
024526 
024577 

024624 
024624 

024624 



000457 
024462' 
015304' 
005203 

104406 

016501 000000 

005002 

150402 

000302 

150402 

020102 

001405 

104456 

000460 

024416' 

015304* 

005203 



104405 



.WORD 
.WORD 
.WORD 



SEQ 098 



303 

T3TSSR 

EXPREC 



30$: 



INC 


R3 


{FORCE INIT ON NEXT PASS 




CKLOOP 




j LOOP ON ERROR ? 








TRAP 


CJCLPl 


MOV 


TSBACR5),R1 


iGET TSBA REGISTER CONTENTS 




CLR 


R2 


i 




BISB 


R4,R2 


jDATA PATTERN WRITTEN 




SWAB 


R2 


j MOVE INTO TOP BYTE 




BISB 


R4.R2 


iBOTH HALVES SHOULD BE SAME 




CMP 


R1.R2 


\ COMPARE EXPECTED TO RECEIVED 




BEQ 


35$ 


i BR IF ERROR NOT EQUAL 




ERRHRD 


ERRN0.T3TSBA, EXPREC 


I PRINT THE ERROR C EXPD/RECV 








TRAP 


C*ERHRD 






.WORD 


304 






.WORD 


T3TSBA 






.WORD 


EXPREC 


INC 


R3 


jFORCE INIT ON NEXT PASS 





35$ 



105204 
001270 
004737 
103002 
000137 

104432 
000210 



016270 
024152 



40$ 



; «■ 



ENDSEG 



INCB 

BNE 

JSR 

BCC 

JMP 

EXIT 



R4 
5$ 

PC.TSTLOOP 
40$ 

T3L00P 
TST 



t<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C$ESEG 

?NEXT DATA PATTERN TO TEST 

iAL«_ DONE WHEN BACK TO ZERO 

j SHOULD WE DO ITERATIONS ? 

I BRANCH IF NOT 

I LOOP UNTIL COUNT EXPIRED 

tALL DONE THIS TEST 

TRAP CtEXlT 
.WORD L 10042 -. 



j LOCAL TEXT MESSAGES FOR TEST 
J - 



124 
124 
116 
127 



104401 



123 
123 
157 
162 



102 
123 
040 
141 



T3TSBA: 
T3TSSR: 
T3SSR: 
TST3ID: 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

ENDTST 



'TSBA Incorrect After TSDB Low Write' 

' TSSR Incorrect After TSDB Low Write' 

'No Sob-System Ready After TSDB Low Write' 
'Wrap Data - Low Byte' 



L 10042: 



TRAP 



C$ETST 



.SBTTL TEST 4- RAM TEST 



THIb (EST VERIFIES THAT ALL LOCATIONS OF THE RAM ON THE M7455 
CAN PROPERLY STORE AND READ BACK ALL DATA PATTERNS, ANO THAT 
EACH RAM LOCATION IS UNIQUELY ADDRESSED (I.E., THAT ONE AND ONLY 
ONE LOCATION IS ACCESSED BY ANY PARTICULAR ADDRESS). THESE 
TESTS ARE PERFORMED BY THREE SUBTESTS, DESCRIBED BELOW. A 
BYPRODUCT OF THESE TESTS IS A VERIFICATION OF TWO REGISTERS IN 
THE 2901 ANO THE CAPABLITY OF THE 2901 TO CORRECTLY PERFORM AN 
ADD. 
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TEST 4: RAM TEST 



18 



SEU 099 



385 
386 
38/ 
380 
3C9 
390 
39V 
392 
393 
394 
395 
396 
397 

3*8 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 

422 
423 



424 
429 
430 
431 
432 
433 
434 
438 
439 



440 
441 



J 



024626 
024626 

02462b 
024626 
024626 

024630 
024634 
024640 
024646 
024646 
024652 
024654 
024656 
024656 
024660 
024662 
024664 
024666 
024670 



TEST 4 , SUBTEST 1: - 

THIS SUBTEST VERIFIES EACH RAii LOCATION BY FIRST PLACING THE 
M7455 INTO MAINTENANCE MODE BY WRITING INTO THE LOW BYTE OF TSDB 
AND THEN PERFORMING THE FOLLOWING SEQUENCE FOR EACH ADDRESS 
0-7777 (OCTAL): 

1. THE ADDRESS TO BE TESTED IS LOADED INTO THE TSDB (VIA A 
WORD WRITE). 

2. THE ADDRESSED RAM LOCATION IS WRITTEN. THEN READ INTO 
THE LOW BYTE OF TSBA, BY WRITING A DATA BYTE INTO THE 
LOW BYTE OF TSDB. 

3. THE LOW BYTE OF TSBA IS CHECKED TO SEE IF IT CONTAINS 
THE DATA PATTERN ORIGINALLY WRITTEN: A DISCREPANCY IS 
REPORTED AS AN ERROR. 

4. THE ADDRESS OF THE LOCATION BEING TESTED IS AGAIN 
WRITTEN INTO TSDB (WORD WRITE), TO CAUSE THE LOCATION 
UNDER TEST TO AGAIN BE READ INTO THE LOW BYTE OF TSBA, 
THE LOW BYTE OF TSBA IS AGAIN CHECKED AND DISCREPANCIES 
REPORTED. 

5. THE HIGH BYTE OF TSBA IS CHECKED i IT SHOULD CONTAIN 
THE SUM OF THE HIGH AND LOW BYTES LAST WRITTEN INTO 
TSDB AS A WORD. A DISCREPANCY IS REPORTED AS A 2901 
PROBLEM. 

6. THE CONTENT OF TSSR IS CHECKED; SETTING OF THE SC BIT 
IS IGNORED, OTHER DISCREPANCIES IN TSSR ARE REPORTED. 



BGNTST 



8GNSU8 



104402 

012700 

004737 
012737 

004 73/ 

103405 
010001 

104455 

000621 

003644' 

011644* 

005004 

004737 



026136' 
016322' 
00OO05 

015604' 



002214 



MOV 


0TST4ID.R0 


JSR 


PC.TSTSETUP 


MOV 


05.L00PCNT 


T4L0OP: 




JSF 


PC.SOFINIT 


BCS 


20$ 


MOV 


R0.R1 


ERROF 


ERRNO.SFIERR.SFIMSG 



016146' 



20$ j fl R R4 

JSR PCCHKTSSR 



T4:j 

l//////////// BEGIN SUBTEST //////////// 

T4.lj 

TRAP C$BSUB 

{ASCII MESSAGE TO IDENTIFY TEST 
jDO INITIAL TEST SETUP 
{PERFORM 5 ITERATIONS 

$00 INITIALIZE ON CONTROLLER 

iBR IF INIT WAS OK 

{CONTENTS OF TSSR REGISTER 

I FATAL ERROR TSSR WAS NOT 0* 

TRAF C IE RDF 
.WORD 401 
.WORD SFIERR 
.WORD SFIMSG 

jSFT RAM ADDRESS AT ZERO 

{WAIT FOR READY, NON AMBIGUOUS 
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J8 



SEQ 100 



442 


024674 


105055 


000000 


443 


024 700 






444 


024 700 








024700 


104404 




445 








446 


024702 


110402 




447 


024704 


004737 


016146' 


448 


024 710 


010465 


000000 


449 


024 714 


004737 


016146' 


450 


024 720 


110265 


000000 


451 


024724 


OC4737 


016146' 


452 


024 730 


016501 


000000 


453 


024734 


120102 




454 


024736 


001404 




458 


024 740 








024740 


104456 






024 74? 


0O0622 






024 744 


025774' 






024746 


015304* 




459 


024750 






460 


024750 
024750 








024 750 


104405 




461 








462 


024752 


005204 




463 


024 754 


020427 


010000 


464 


024 760 


001347 




465 


024 762 








02*762 


104410 






024764 


000102 




466 








467 


024766 


005002 




468 


024770 


005304 




469 


024772 


110402 




4 70 


024 774 


004737 


016146' 


471 


025000 


010465 


OOOOOO 


4 72 


0250O4 


004737 


016146' 


473 


025010 


016501 


OOOOOO 


4 74 


025014 


120102 




475 


025016 


001404 




479 


025020 








025020 


104456 






025022 


000623 






025024 


0257 74' 






025026 


015304' 




430 


025030 








025030 


104406 




461 


025032 


116501 


000001 


482 


025036 


010402 




483 


025040 


000302 




484 


025042 


060402 




485 


025044 


12C102 




48c 


025046 


001404 




490 


025050 








025050 


104456 






025052 


000624 






025054 


025704* 





25$; 



CLRB TSDBCR5) 
BGNSEG 



MOVB 


R4.R2 


JSR 


PCCHK1SSR 


MOV 


R«,TSUBCV5) 


JSR 


PC.CHKTSSR 


MOVB 


R2.TSDBCR5) 


JSR 


PC.CHKTSSR 


MOV 


TSBA(R5),R1 


CMPB 


R1.R2 


BEQ 


30$ 


ERRHRD 


ERRN0.TSBAM2, EXPREC 



30$; 



40$ 



45$ 



ENDSEG 



INC 
CMP 
BNE 
ESCAPE 



CLR 

DEC 

MOVB 

JSR 

MOV 

JSR 

MOV 

CMPB 

BEQ 

ERRHRD 



CKLOOP 



R4 

R4,*10000 
25 $ 

sue 



R2 
R4 
R4.R2 

PC.CHKTSSR 

R4.TSDBCR5) 

PC.CHKTSSR 

TSBA(R5).R1 

R1.R2 

45$ 

ERRN0.TSBAM2, EXPREC 



MOVB 


TS3AH(R5),R1 


MOV 


R4.R2 


SWAB 


R2 


ADO 


R4.R2 


CMPB 


R1.R2 


BEQ 


50$ 


ERRHRD 


ERRN0.M2901, EXPREC 



{SET INTO MAINTENANCE MODE 

1>>>>>>>>>>>^ BEGIN SEGMENT >>>>>>>>>>>> 

TRAP C$BSEG 

l EXPECTED DATA FROM WRAP-AROUND 

j WAIT FOR READY, NON-AMBIGUOUS 

j LOAD ADDRESS INTO TSDB 

I WAIT FOR READY, NON-AMBIGUOUS 

j LOADS DATA INTO RAM LOCATION 

I WAIT FOR READY, NON -AMBIGUOUS 

{READS WRAP DATA 

j DOES WRITTEN(WRAP) « READ 

j BR IF OK, THEY ARE EQUAL 

j DATA NOT WRAPPED CORRECTLY 

TRAP CJERHRD 
.WORD 402 
.WORD TSBAM2 
.WORD EXPREC 

;<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C$ESEG 

{NEXT ADDRESS 

jEND OF RAM MEMORY CHECK 

;L0OP TILL ALL RAM WRITTEN 

{DON'T CONTINUE IF ERROR ON WRITE 

TRAP C$ESCAPE 
.WORD L10044-. 

; CLEAR OUT R2 HIGH BITS 

j SET BACK TG 7777 

{GET DATA PATTERN BACK IN SHAPE 

{WAIT FOR READY, NON-AMBIGUOUS 

i LOAD LP RAM ADDRESS POINTER 

{WAIT FOR READY, NON-AMBIGUOUS 

{READ RAM CONTENTS BACK 

{CHECK WITH DATA WRITTEN 

tBR IF OK, DATA IN - DATA OUT 

{WRITTEN DATA NOT ■ 



{SCOPE LOOP 



TO READ 
TRAP 
.WORD 
.WORD 
.WORD 



{HIGH BYTE READ OF TSBA 
iDATA PATTERN WRITTEN 
{HIGH TO LOW 
{TOTAL OF BYTES IN LOW 
{SUM OF BYTES WRITTEN 
;BR IF OK, THEY SHOULD 
12901 PROBLEM ADDER 



TRAP 



BYTE 
10 TSDB 
BE 

TRAP 

.UORD 

.WORD 



CJERHRD 
403 
TSBAM2 
EXPREC 

C$CLP1 



TS8AH 



C$ERHRD 

404 

M2901 



I<8 
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491 

492 
493 
494 
495 



4 96 
4'* 7 
498 



499 
500 
501 
502 
503 
504 
505 
506 
510 
511 



512 
513 
514 
515 
516 
517 

518 
5?.9 
520 
521 
522 
523 
524 
525 
526 
530 



531 
532 



533 
534 
535 
536 



025056 
025060 
025060 
025062 
025064 

025066 
025066 
025066 



025070 
025070 
025070 



025072 
025076 
025100 
025102 
025102 
025104 
025106 
025110 
025112 
025114 
025116 
025122 
025126 
025126 
025126 

025130 
025134 
025140 
025144 
025150 
025154 
025160 
025162 
025164 
025164 
025166 
025170 
025172 
025174 
025174 
025174 
025174 

0251/6 
025200 
025204 



015 304' 

104406 
005304 
002342 



104403 



104402 



004737 
103405 
010001 

104455 

000625 

003644' 

011644' 

005002 

005004 

004737 

105065 



104404 

004737 
010465 
004737 
110265 
004737 
016501 
120102 
001404 

104456 

000626 

025774' 

015304' 



104405 

005204 
020427 
001350 



50$ 



CKLOOP 

DEC R4 
BGE 40$ 

ENDSUB 

BGNSU8 

TEST 4, SUBTEST 2 



.WORD 
I SCOPE LOOP 

TRAP 
j DROP DATA COUNTER (PATTERN) 
iNOT AT LOC. ZERO YET 



SEC 101 

EXPREC 
C$CLPl 



}\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L10044: 

TRAP C$ESU8 



;//////////// BEGIN SUBTEST //////////// 

T4.2: 

TRAP C$BSUB 



THIS SUBTEST WRITES RAM WITH ALL ZEROS 

THEN WALKS AN ALL ONES WORD DOWN THROUGH MEMORY 



015604 



016146 
000000 



016146 
000000 
016146 
000000 
016146 
000000 



20$ 



25$ 



JSR 


PC.SOFINIT 


{DO INITIALIZE ON CONTROLLER 




BCS 


20$ 


j BR IF INIT WAS OK 




MOV 


RO.Rl 


i CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO,SFIERR,SFIMSG 


j FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


405 






.WORD 


SFIERR 






.WORD 


SFIMSG 


CLR 


R2 


{TEST DATA - 




CLR 


R4 


{STARTING RAM ADDRESS - 




JSR 


PC.CHKTSSR 


{WAIT FOR READY. NON-AMBIGUOUS 




CLR8 


TSDBCR5) 


{SET INTO MAINTENANCE MODE 





BGNSEG 



JSR 


PC.LHKTSSR 


MOV 


R4,TS0B(R5) 


JSR 


PC.CHKTSSR 


MOVB 


R2.TSDBCR5} 


JSR 


PC.CHKTSSR 


MOV 


TSBA(R5).R1 


CMPB 


R1.R2 


BEQ 


30$ 


ERRHRD 


ERRN0,TSBAM2, EXPREC 



30$: 



ENDSEG 



010000 



INC 


R4 


CMP 


R4. 010000 


BNE 


25$ 



;>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP C$BSEG 

{WAIT FOR READY, NON-AMBIGUOUS 

,LOAD ADDRESS INTO TSDB 

{WAIT FOR READY, NON-AMBIGUOUS 

{LOADS DATA INTO RAM LOCATION 

{WAIT FOR READY, NON-AMBIGUOUS 

{READS WRAP DATA 

{DOcS WRITTENCWRAP} - READ ? 

;B n IF OK, THET ARE EQUAL 

{DATA NOT WRAPPED CORRECTLY 

TRAP C$ERHRD 

.WORD 406 
.WORD TSBAM2 
.WORu EXPRFC 

;<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C$ESEG 

{NEXT ADDRESS 

i END OF RAM MEMORY CHECK 

{BR, MORE RAM TO GO 
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53 7 

536 025206 

5 59 025210 

540 025212 

541 025216 

542 025222 

543 025226 

544 025232 

545 025234 

546 025236 

550 025240 
025240 
025242 
025244 
025246 

551 025250 

552 025254 

553 025260 

554 025264 

555 025270 

556 025274 

557 025300 

558 025302 

562 025304 
025304 
025306 
025310 
025312 

563 025314 
025314 

\64 025316 
S65 025322 
r ^66 025326 
>67 025332 
368 025336 

569 025340 

570 025342 

571 025344 

572 025346 

576 025350 
025350 
025352 
025354 
025356 

577 C25360 
025A6G 

578 025362 

579 025364 
580 

581 025366 
025366 
025366 

582 

583 

534 025370 
025370 
0253 70 



005304 
005002 
004737 
010465 
004737 
016501 
005002 
120102 
001404 

104456 

000627 

026056' 

015304' 

012702 

010465 

004737 

110265 

004737 

016501 

120102 

001404 

104456 
000630 
0257 74' 
015304' 

104406 
004737 
010465 
004737 
116501 
010403 
000303 
060403 
120103 
00\404 

104456 
0G0631 
025 704' 
0153U4' 

104 40^ 
003^04 
002312 



104403 



10-5402 
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016146' 
000000 
016146' 
000000 



35$: 

40$: 



DEC 

CLR 

JSR 

MOV 

JSR 

MOV 

CLR 

CMPB 

BEQ 

ERRHRD 



000377 

OOOOOO 

016146' 

OOOOOO 

016146' 

OOOOOO 



43$: 



45$ 



CKLOOP 



016146' 
OOOOOO 
016146* 
000001 



50$ 



CKLOOP 

DEC 

BGE 

ENDSUB 



BGNSUG 



R4 
R2 
PC.CHKTSSR 

R4,TSDB(R5) 

PC.CHKTSSR 
TSBA(R5),R1 

R2 

R1.R2 

43$ 

ERRN0.TSBAM3, EXPREC 



JSR 


PC.CHKTSSR 


MOV 


R4,T5DB(R5) 


JSR 


PC.CHKTSSR 


MOVB 


TSBAH(R5),R1 


MOV 


R4.R3 


SUAB 


R3 


ADO 


R4.R3 


CMPB 


R1.R3 


BEQ 


50$ 


ERRHRD 


ERRN0.N2901, EXPREC 



R4 
40$ 



SEQ 102 



MOV 


0000377, R2 


i 


MOV 


R4,TSDBCR5) 


* 


JSR 


PC.CHKTSSR 


i 


MOVB 


R2.TSDBCR5) 


t 


JSR 


PC.CHKTSSR 


i 


MOV 


TSBACR5),R1 


t 


CMPB 


R1.R2 


« 


BEQ 


45$ 


1 


ERRHRD 


ERRN0.TSBAM2, EXPREC 


{ 



j SET BACK TU 7777 
j SET TO ALL ZEROS 
jWAIT FOR READY CSSR) TO SET 
5 LOAD UP THE ADDRESS FOR RAM 
{WAIT FOR READY (SSR) TO SET 
I READ THE RAM CONTENTS BACK 
; LOOKING FOR OOOOOO C EXPECTED) 
j BOTH SHOULD BE 00000000 BINARY 
tBR, IF DATA IS GOOD 
j CHARACTERISTICS DATA NOT CORREC 

TRAP 
.WORD 
.WORD 
.WORD 

SET ALL ONES WORD 

LOAD UP RAM ADDRESS POINTER 

WAIT FOR READY. NON -AMBIGUOUS 

WRITE DATA INTO RAM 

WAIT FOR READY. NON-AMBIGUOUS 

READ RAM CONTENTS BACK 

CHECK WITH DATA WRITTEN 

BR IF OK. DATA IN - DATA OUT 

WRITTEN DATA NOT 



{SCOPE LOOP 



C$ERHRD 
407 

TSBAM3 
EXPREC 



TO READ 




TRAP 


CJERHRD 


.WORD 


408 


.WORD 


TSBAM2 


.WORD 


EXPREC 



RAP 



WAIT FOR READY, NON-AMBIGUOUS 

WORD WRITE TO SET UP AODRESS 

WAIT FOR READY. NON-AMBIGUOUS 

HIGH BYTE READ OF TSBA 

DATA PATTERN WRITTEN 

HIGH TO LOW 

TOTAL OF BYTES IN LOW BYTE 

SUM OF BYTES WRITTEN TO TSDB ■■ 

BR IF OK, THEY SHOULD BE 

2901 PROBLEM ADDER 

TRAP 
.WORD 
.WORD 
.WORD 

SCOPE LOOP 

TRAP 

DROP RAM ADDRESS POINTER 

NOT AT LOC. ZERO YET 



C$CL*U 



TSBAH 



C$ERHRD 
409 
M2901 
EXPREC 

C$CLP1 



j\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L10045: 

TRAP C$ESUB 



j //////////// BEGIN SUBTEST //////////// 

T4 % 3: 

TRAP CSBSUB 
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SEQ 103 



585 








586 








587 








586 








589 








590 








591 


025372 


00475? 


015604' 


592 


025376 


103405 




596 


025400 


010001 




597 


025402 








025402 


104455 






025404 


000632 






025406 


003644' 






025410 


011644' 




598 


025412 


012702 


177777 


599 


025416 


005004 




600 


025420 


004737 


016146' 


601 


0254 24 


105065 


000000 


602 


025430 






602; 


025430 








025430 


104404 




604 








605 


025432 


004737 


016146' 


606 


025436 


0104C5 


000000 


607 


03442 


004737 


016146' 


608 


025446 


110265 


000000 


609 


025452 


004737 


016146' 


610 


025456 


0165C1 


000000 


611 


025462 


1201C2 




612 


025464 


001404 




616 


025466 








025466 


104456 






025470 


000633 






02547.? 


025774' 






0254 74 


015304' 




61/ 


0254 76 






618 


025476 
0254 76 








0254 76 


104405 




619 








620 


025500 


00520* 




621 


025502 


020427 


010000 


622 


025506 


001550 




623 








624 


025510 








025510 


104410 






025512 


000152 




625 


025514 


0053C4 




626 


025516 


004737 


016K6' 


627 


025522 


012702 


000377 


628 


025526 


005001 




629 


025530 


010465 


000000 


630 


025534 


004737 


016146' 


631 


025540 


016501 


000000 


632 


025544 


120102 




633 


025546 


001404 




637 


025550 







20$ 



25$ 



30$ 



35*. 
40$ 



TEST 4, SUBTEST 3 

THIS SUBTEST WRITES RAM WITH ALL ONES 
THEN WALKS A ZERO WORD DOWN THROUGH MEMORY 



JSR 


PCSOFINIT 


BCS 


20$ 


MOV 


R0.R1 


ERRDF 


ERRNO , SFIERR , SF IMSG 



MOV 


$177777, R2 


CLR 


R4 


JSR 


PCCHKTSSR 


CLRB 


TSDBCR5) 



BGNSEG 



ENDSEG 



INC 
CMP 
BNE 



R4 

R4,n0000 

25$ 



ESCAPE SUB 



DEC R4 

JSP PC.CHKTSSR 

MOV #000377, R2 

CLR HI 

MOV R4,TSDB(R5) 

JSR PC.CHKTSSP 

MOV TSBACR5),R1 

CMP8 R1.R2 

B^Q 43$ 

ERRHRD ERRNO, TSBAM3.EXPREC 



jDO INITIALIZE ON CONTROLLER 
sBR If INIT WAS OK 
{CONTENTS OF TSSR REGISTER 
{FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 
j SET DATA AT ALL ONES 
j Sif RAM ADDRESS AT ZERO 
{WAIT FOR READY, N0N-AM8IGU0US 
} SET INTO MAINTENANCE MODE 



C$ERDF 
410 
SFIERR 
S^IMSG 



>>>>>>>>>>>> 



BEGIN SEGMFUT >>>>>>>>>>>> 
TRAP C$BSEG 



JSR 


PCCHKTSSR 


{WAIT 


MOV 


R4, rSDB(R5) 


{LOAD 


JSR 


PC,CHKTSSR 


{WAIT 


MOVB 


R2.TSDBCR5) 


jLOAOS 


JSR 


PCCHKTSSR 


{WAIT 


MOV 


TSBACR5),R1 


{READS 


CMPB 


R1,R2 


{DOES 


BEQ 


30$ 


; BR IF 


ERRHRD 


ERRNO, TSBAM2.EXPREC 


{DATA 



FOR READY, NON-AMBIGUOUS 

ADDRESS INTO TSDB 

FOR READY, UON AMBIGUOUS 

DATA INTO RAM LOCATION 
FOR READY, NON-AMBIGUOUS 

WRAP DATA 
WRITTENCWRAP) - READ ? 

OK, THEY ARE EQUAL 
NOT WRAPPED CORRECTLY 

TrtAP 
.WORD 
.WORD 
.WORD 



CiERHRD 
411 

TS3AM2 
EXPREC 



;<<<<<<<<<<<<< end SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C*ESEG 

{NEXT ADDRESS 

{END OF RAM MEMORY CHECK 

j BR, MORE RAM TO GO 

;N0 CHECK IF WRITTEN INCORRECTLY 

TRAP C$ESCAPE 
.WORD L10046-. 

{SET BACK TO 77/7 

{WAIT FOR REAr.-i', NON-AMBIGUOUS 

{SET UP EXPECTED DATA REGISTER 

{CLEAN OUT REGISTER 

{SELECT ADDRESS IN RAM 

{WAIT FOR READY (SSR) 

{PICK UP RAM CONTENTS 

{IS MEMORY STILL ALL ONES 

;BR, IF OK (ALL ONES) 

{MEMORY CHANGED AFTER ALL ONES WRITE 



TSV5A - HARDWARE TESTS MACRO M1113 07-r"EB-84 10:56 
TEST 4: RAM TEST 



N8 



638 
630 
640 
641 
642 
643 
644 
645 
649 



65(i 

651 
652 
653 
654 
655 
656 
657 
661 



662 

663 
664 
665 
666 



66 7 
668 
669 
670 
671 



6 72 
673 
674 
6 75 
676 
677 
678 
679 
680 
681 



025550 
025552 
025554 
025556 
025560 
025562 
025566 
025572 
025576 
025602 
025606 
025610 
025612 
025612 
025614 
025616 
025620 
^25622 
0c5622 
025t\?4 
025630 
025634 
025636 
025640 
025642 
025644 
025646 
025646 
025650 
025S52 
025654 
025656 
025656 
025660 
025662 

025664 
025664 
025664 

025666 
025672 
025674 
025700 
025700 
025702 



025704 

0257^4 

026056 
026136 

026160 
026160 



104456 

000634 

026056' 

015304* 

005002 

010465 OOOOOO 

004737 016146 

110265 OOOOOO 

004737 016146 

016501 OOOOOO 

120102 

001404 

104456 
000635 
0257.4' 
015304' 

104406 

004737 016146 



43$: 



45$: 



CLR 

MOV 

JSR 

M0V8 

JSR 

MOV 

CMPB 

BEQ 

ERRHRD 



OslOOP 



116501 
010203 
000303 
060203 
120103 
001404 

104456 
000636 
025704 
015304 

104406 
005304 
001315 



104403 



000001 



50$: 



CKLOOP 

DEC 
BME 

ENDSUB 



0047^7 016270 

103002 

000137 024646 

104432 
00025b 



R2 

R4.TSDBCR5) 

PC.CHKTSSR 

R2,TSDB(R5) 

PC.CHKTSSR 

TSBA(R5),R1 

R1.R2 

4?$ 

ERRN0,TSBAM2, EXPREC 



JSR 


PC.CHKTSSR 


MOVB 


TSBAH(R5),R1 


MOV 


R2.R3 


SWAB 


R3 


ADD 


R2.R3 


CMPB 


R1.R3 


BEQ 


50$ 


ERRHRD 


ERRN0.M2901, EXPREC 



R4 
40$ 



JSR 


PC.TSTLOOP 


BCC 


63$ 


JMP 


T4L0UP 


EXIT 


TST 



63$: 



LOCAL TEXT MESSAGES FOR TEST 



TRAP 
.WORD 
.WORD 
.WORD 
SET UP NE' 1 EXPECTED 
LOAD UP RAM ADDRESS POINTER 
WAIT FOR READY, NON-AMBIGUGUS 
WRITE DATA INTO RAM 
WAIT FOR READY, NON-AMBIGUOUS 
READ RAM CONTENTS BACK 
CHECK WITH DATA WRITTEM 
BR IF OK, DATA IN - DATA OUT 
WRITTEN DATA NOT - TO READ 

TRA? 
.WORD 
.WORD 
.WORD 
SCOPE LOOP 

TR.*P 
WAIT FOP READY, NON-AMBIGUOUS 
HIGH BYTE READ OF TSSA 
DATA PATTERN WRITTEN 
HIGH TO LOW 

TOTAL Or BYTES IN LOW BYTE 
SUM OF BYTES WRITTEN TO TSDB 
BR IF OK, THEY SHOULD BE 
2901 PROBLEM ADDER 

TRAP 
.WORD 
.WORD 
.WORD 
SCOPE LOOP 

TRAP 
DROP RAM ADDRESS POINTER 
NOT AT LOC, ZERO YET 



SEQ 104 



C$ERHRD 

412 

TSBAM3 

EXPREC 



CJERHRD 
413 
TSBAM2 
EXPREC 

C$CLP1 



- TSBAH 



C$ERHRD 

414 

M2901 

EXPREC 

C$CLP1 



;\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L10046: 

TRAP 



C$ESUB 



DO WE NEED TO ITERATE TEST V 

BRANCH IF NOT 

EXECUTE AGAIN 

ALL DONE THIS TEST 

TRAP 
.WORD 



C$EXIT 
L10043-. 



040 
040 
12 7 
122 



124 
127 

162 
101 



123 
162 
151 
115 



M2901- 

TSBAM2 
TSBAM3 
TST4ID 



.ASCIZ 

.ASMZ 

.ASCIZ 

.ASCIZ 

.EVEN 

ENDTST 



' TSBA High Byte Not Sum of Last l"SDB Write (2901 Errt>rV 
' Write to TSDB Not Equal to Read of TSBA Low Byte' 
'Write T o RAM Location Modified Another Location' 
•RAM Veri f i cat ion' 



L10043: 



TSV5A 
TEST 



682 
663 
664 
685 
686 
687 
688 
689 
690 
691 
692 
69? 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 

708 

709 
710 
711 
712 
713 
714 
715 
716 
717 
716 
719 
720 

725 
726 
727 
728 
729 
730 
731 



732 
733 

734 

738 



HARDWARE TESTS 
RAM TEST 

026160 104401 



MACRO M1113 07-FEB-84 10i58 



B9 



TRAP 



SEQ 105 



CIETST 



.SBTTL TEST 5t SECOND INITIALIZATION TEST 



026162 
026162 
026162 
026166 
026172 
026200 
026200 

026204 
026204 
026204 

026206 
026212 
026214 
026214 
026216 
026220 



THIS TEST VERIFIES THE SAME ELEMENTS AS DIO INITIALIZATION TEST 
♦1 AND ALSO CHECKS THAT CERTAIN PARTS OF RAM IS CLEARED TO ZERO 
AND THAT 2901 REGISTERS 10 AND 11 ARE ALSO CLEARED TO ZERO. 
THIS IS A CONFIDENCE CHECK OF A PART OF THE SELF -TEST SEQUENCE 
(I.E.. THAT IT IS REALLY BEING EXECUTED). FOR EACH OF TWO 
SUBTESTS (ONE FOR INITIALIZING VIA A BUS INIT, THE OTHER FOR 
INITIALIZING BY WRITING INTO THE YSSR), THE FOLLOWING SEQUENCE 
IS PERFORMED: 

1, EACH RAM LOCATION AND 2901 REGISTERS 10 ANO 11 ARE SET 
TO ALL l'S Br USING WRITES INTO THE TSDB REGISTER CLOW 
BYTE ANO MAINTENANCE MOOE WORD WRITES). 

2. THE CONTROLLER IS INITIALIZED AND THE VARIOUS CHECKS ON 
THE TSSR DESCRIBED IN INITIALIZATION TEST *1 ARE 
PERFORMED. 

3 t #1'S (377 OCTAl ) ARE WRITTEN INTO THE LOW BYTE OF TSDB, 
WICH SHOULD CAUS^ RAM LOCATION TO BE WRITTEN TO ALL 
l'S SINCE 2901 REGISTERS 10 AND 11, SPECIFYING THE RAM 
AODRESS, SHOULD BE 0. RAH LOCATION IS VERIFIED Br 
WRITING A WORD OF ZEROS INTO THE TSDB. THE RESULTING 
LOW BYTE OF TS8A SHOULD CONTAIN ALL l'S. 

4. THE ENTIRE RAM IS SCANNEO. LOCATION SHOULD CONTAIN 
ALL l'S ANO THE REMAINING LOCATIONS. EXCEPT FOR THE 
MESSAGE BUFFER IMAGE AREA. SHOULD CONTAIN 0. 
DISCREPANCIES ARE REPORTED. AN ERROR AT THIS POINT IS 
MOST LIKELY DUE TO A ROM, PIPELINE OR SEQUENCER PROBLEM 
OR A TIMJNG PROBLEM. 



012700 
004737 
012737 



027134 
016322 
000024 



002214 



005037 OO2220 1 



T5LQQPI 



104402 

004737 
103404 

104455 
000 765 
Q09644' 



0156Q4' 



BGNTST 

MOV 
JSR 
MOV 

CLR 

BGNSUB 



JSR 
BCS 
EHRDF 



♦TST5ID.R0 

PC.TSTSETUP 
♦20. .LOOPCNT 

FATFLG 



T5:: 

lASCII MESSAGE TO IDENTIFY TEST 
iDO INITIAL TEST SETUP 
iPERFORM 20 ITERATIONS 

iCLEAR THE FATAL ERROR FLAG 

\//////////// BEGIN SUBTEST //////////// 

T5.li 

TRAP C$BSU6 



PC.SOFINtT 

101 

ERRNQ.SFXERR.SFXMSG 



lOO A SOFT TO START 




iBRANCH IF O.K. 




I REPORT ERROR ANO DROP DRIVE 




TRAP 


CitRDF 


.WORD 


501 


.WORD 


SFIERR 



C9 ■ 



TSV5A - 
TEST 5 


H §M 


WftiHraW 




026222 


011644' 




739 


026224 


012702 


177777 


740 


026230 


005004 




741 


026232 


004737 


016146 1 


742 


026236 


105065 


000000 


743 


026242 


004737 


016146' 


744 


026246 


010465 


000000 


745 


026252 


004737 


016146' 


746 


026256 


110265 


000000 


747 


026262 


005204 




748 


026264 


020427 


007777 


749 


026270 


003762 




750 


026272 








026272 


104433 




751 


026274 


004737 


016146' 


752 


026300 


016501 


000002 


753 


026304 


010102 




754 


026306 


042702 


176277 


755 


026312 


052702 


002200 


756 


026316 


020102 




757 


026320 


001406 




761 


026322 








026322 


104455 






026324 


000766 






026326 


003677 1 






026330 


011712' 




762 


026332 


005237 


002220' 


765 


026336 








026336 


104406 




764 


026340 








026340 


104410 






026342 


000170 




765 


026344 


004737 


016146' 


766 


026350 


105O65 


OOOOOO 


7i7 


026354 


004737 


016146' 


765 


026360 


005065 


OOOOOO 


769 


026364 


012702 


000377 


770 


026370 


004737 


016146' 


771 


026374 


110265 


OOOOOO 


772 


026400 


0O4737 


016146' 


773 


026404 


CXft065 


OOOOOO 


774 


026410 


004737 


016146' 


775 


026414 


116501 


OOOOOO 


7 76 


026420 


120102 




777 


026422 


001406 




773 


026424 








026424 


104455 






026426 


000766 






026430 


027222 1 






026432 


015304' 




779 


0264 34 


005237 


002220* 


780 


026440 








026440 


104400 




781 


026442 








026442 


104410 






026444 


000066 




782 


026446 


013704 


000310 



07-FEB-84 10t58 



101} 


MOV 


•-1.R2 




CLR 


R4 




JSR 


PC.CHKTSSR 


15$} 


CLRB 


TS0BCR5) 




JSR 


PC.CHKTSSR 




MOV 


R4.TSDBCR5) 




JSR 


PC.CHKTSSR 




MOVB 


R2.TSDBCR5) 




INC 


R4 




CMP 


R4,*7777 




BLE 


15$ 




BRESET 






JSR 


PC.CHKTSSR 




MOV 


TSSRCR5),R1 




MOV 


R1.R2 




BIC 


♦*C<HIADDRtOFL>,R2 




BIS 


♦SSRJNBA.R2 




CMP 


R1.R2 




BEQ 


20$ 




ERRDF 


ERRNO.SFHERR.SFFMSG 




INC 


FATFLG 


20$; 


CKLOOP 





ESCAPE SUB 



25$ 



JSR 

CLRB 

JSR 

CLR 

MOV 

JSR 

MOVB 

JSR 

CLR 

JSR 

MOVB 

CMPB 

BEQ 

ERRDF 



INC 
CKLOOP 

ESCAPE 



MOV 



PC.CHKTSSR 

TSD6CR5) 

PC.CHKTSSR 

TS06CR5) 

♦377.R2 

PC.CHKTSSR 

R2.TS0BCR5) 

PC.CHKTSSR 

TSDBCR5) 

PC.CHKTSSR 

TSBA(R5).R1 

R1.R2 

25$ 

ERRN0.T5ADDR.EXPREC 



FATFLG 

sue 

031Q.R4 



UOUS 



.WORD 
l ALL ONE DATA PATTF 
l STARTING RAH AGDRf 
iWAIT FOR READY, Nt 
l SET MAINTENANCE MC 
I WAIT FOR READY, NO, ,GUOUS 

iSET THE NEXT RAM ADUMtSS 
I WAIT FOR REAOY, NON-AMBIGUOUS 
lLOAD TEST DATA 
jNEXT ADDRESS TO TEST 
I COMPARE TO LAST ADDRESS 
jBRANCH TILL ALL DATA WRITTEN 
j ISSUE A BUS RESET 

TRAP 
I WAIT FOR READY, NON-AMBIGUOUS 
iGET THE CONTcNTS Of TSSR 
iCONTENTS OF TSSR 
I THESE BITS MAY BE SET 
I READY AND NEW DATA SHOULD BE 
iCOMPARE EXPECTED TO RECEIVED 
iBRANCM IF COMPARE 
IREP0R7 A FATAL ERROR 

TRAP 
.WORD 
.WORD 
.WORD 
iSeT FATAL ERROR FLAG 
I LOOP ON ERROR IF FLAG SET 

TRAP 
IEXIT IF FATAL ERROR DETECTEO 

TRAP 
.WORD 
iWAIT FOR SSR TO SET 
iPUT BACK INTO MAINTENANCE MOOE 
i WAIT FOR READY, NON AMBIGUOUS 
iSET ADDRESS BACK TO 0000 



SEQ 106 



SFIMSG 



CIRESET 



SET 



cierdf 

502 
SFHERR 

SFFMSG 



CICLP1 

C$ESCMPE 
L 10050 -> 



I 

j WAIT FOR REAOY, 
j SHOULD POINT TO 
iWAIT FOR READY, 
i SELECT LOCATION 
t WAIT FOR REAOY. 
I READ RAM 
lLOCATION 
iBR IF OK 
jWASN'T POINTING 



NON -AMBIGUOUS 

RAM 

NON -AMBIGUOUS 



NON -AMBIGUOUS 
LOCATION SPECIFIED 
SHOULD BE 377 OCTAL 

TO CORRECT LOC, 

TRAP C$ERDF 
.WORD 502 
.WORD T5AD0R 
.WORD EXPREC 
PL AG 



iSF.T THE FATAL ERROR 
I SCOPE LOOP 



I NO MORE CHECKS IF 



jSTARl WITH LOC 3X0 



TRAP 

FATAL ERROR 
TRAP 

.WORD 



CICI.P1 

C$ESCAPE 
L1QQ5Q-, 



F9 



TSV5A - HARDWARE TESTS 
TEST 5; 



MACRO M1113 
SECOND INITIALIZATION TEST 



07-FEB-84 10j58 



SEW 109 



027066 
027070 

869 027072 

870 027074 

871 027100 
872 

873 027102 
027102 
027102 

874 

875 027104 

876 C27110 

877 027112 

878 027116 

879 027122 

880 027124 

881 027130 
027130 
027132 

882 
883 
884 
885 
886 

887 027134 

888 027164 

889 027222 
890 

891 027264 
027264 
027264 

89<? 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 



104410 

000012 

005204 

020427 000400 

001353 



104403 

005737 002220' 

001402 

004737 017014' 

004737 016270' 

103002 

000137 026200' 

104432 
000132 



INC 


R4 


CMP 


R4 , 0400 


8NE 


30* 



TRAP 
.WORD 
I LOOK AT NEXT RAM LOC. 
I AT TOP OF RAM ADDRESS SPACE 
j BRANCH TILL ALL MEMORY TESTED 



CIE3CAPE 
L10051-. 



105 
111 
111 



104401 



170 
156 
156 



50$: 



60$ { 



i ♦ 

j LOCAL 

I - 

164 TST5I0: 
143 T5MEM: 
143 T5ADDR: 



ENDSUB 



TST 
BEQ 
JSR 
JSR 
BCC 
JMP 
EXIT 



FATFLG 

50$ 

PC.CKDROP 

PC.TSTLOOP 

60$ 

T5L00P 

TST 



?\\\\\\\\\\\\\ END SUBTEST NWWWWWW 

L10051: 

TRAP C$ESUB 

lIS FATAL ERROR FLAG SET ? 

»8RANCH IF NOT 

l NO LOOP, TRY TO DROP DEVICE 

I SHOULD WE DO ITERATIONS ? 

I BRANCH IF NOT 

jLCOP UNTIL COUNT EXPIRED 

j ALL DONE THIS TEST 

TRAP C$EXIT 
.WORD L10047-. 



TEXT MESSAGES FOR TEST 



♦ASCIZ 

.ASCIZ 

,ASCIZ 

.EVEN 

ENDTST 



'Extended Initialization' 
•Incorrect RAM Data After Inif 
'Incorrect RAM Address After Inif 



L10O47: 



TRAP 



C$ETST 



.SBTTL TEST 6; COMMAND REJECT 



THIS TEST VERIFIES THAT ALL COMMANOS OTHER THAN WRITE 
CHARACTERISTICS ARE REJECTED DUE TO THE NEED BUFFER ADDRESS 
(NBA) BIT BEING SET IN TSSR, AND THAT THE TSBA ANO TSSR 
REGISTERS ARE LEFT IN THE PROPER STATE AFTER EACH COMMAND IS 
ReJECTED. THIS TEST CHECKS MICROPROCESSOR SEQUENCING, BASIC 
COMMAND DECODING ANO DATI DMA HANDLING. THIS TEST CONTAINS TWO 
SUBTESTS: SUBTEST 1 SEQUENCES THROUGH ALL COMMAND WORDS (OTHER 
THAN WRITE CHARACTERISTICS) WITH THE INTERRUPT ENABLE (IE) BIT 
CLEAR ANO VERIFIES THAT AN INTERRUPT IS NOT GENERATED BY THE 
REJECTED COMMANOi SUBTEST 2 PERFORMS SIMILARLY TO SUBTEST 1 BUT 
SETS THE IE BIT IN EACH COMMAND WORD ANO VERIFIES THAT AN 
IN1ERRUPT IS GENERATEO WHEN THE COMMAND IS REJECTED. SUBTEST 1 
SETS UP THE INTERRUPT SERVICE ROUTINE TO FLAG UNEXPECTED 
INTERRUPTS. THE COMMAND WORD IN THE COMMAND BUFFER IS 
INITIALIZED TO 100000 (OCTAL) ANO THE REMAINING THREE WORDS IN 
THE COMMANO BUFFER ARE SET TO KNOWN UNIQUE PATTERNS. THEN THE 
FOLLOWING SEQUENCE IS PERFORMED? 

1. INITIALIZE THE CONTROLLER BY WRITING INTO THE TSSR} 
PROPER INITIAL CONDITIONS ARE VERIFIED. 



TSV5A - HARDWARE TESTS MACRO M1113 
TEST 6: COMMAND REJECT 

918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 

937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 



G9 
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SEQ 110 



959 

960 
961 
962 
963 



964 

965 



966 
967 
968 
969 

970 
971 
975 



027266 
027266 
02 7266 
027272 
02 7276 
027304 
027304 
0,?7304 
027304 

027306 
027306 
027312 
027314 
027320 
027324 
027326 
027326 
027330 
027334 



2. TSDB IS WRITTEN WITH ADDRESS OF THE COMMAND BUFFER TO 
START PROCESSING. 

3. THE PROGRAM UAITS FOR SSR TO SETj IF SSR DOES NOT SET, 
AN ERROR REPORT IS ISSUED ANO THE TES. IS ABORTED, 

4. THE CONTENTS OF TSSR ARE CHECKED, TSSR IS CORRECT IF 
IT CONTAINS EITHER OCTAL 102206 OR 102306 (BIT 6 
DEPENDS UPON THE STATE OF THE TAPE TRANSPORT), 

5. THE CONVENTS OF TSBA ARE CHECKED. TSBA SHOULD CONTAIN 
THE INITIAL COMMAND BUFFER ADDRESS (LOADED IN STEP 2) 
PLUS 10 (OCTAL) i I.E., TSBA SHOULO POINT TO THE WORD 
JUST AFTER THE COMMAND PACKET (NOTE THAT 4 COMMAND 
PACKET WORDS ARE ALWAYS FETCHED). 

6. USING THE MAINTENANCE MOOE WRAPAROLMO FUNCTIONS, THE 
COMMAND IMAGE BLOCK IN THE M7455'S RAM (LOCATIONS 
201-210 (OCTAL)) ARE CHECKED i THE IMAGE SHOULD CONTAIN 
A COPY OF THE FOUR COMMAND PACKET WORDS AS SET UP IN 
CPU MEMORY. 

7. THE COMMAND WORD IN THE COMMANO BUFFER IS INCREMENTED 
TO THE NEXT PATTERN NOT CONTAINING WRITE 
CHARACTERISTICS OR IE, THE REMAINING THREE WORD OF THE 
COMMANO BUFFER ARE SEQUENCED WITH PSEUOO-RANOOM DATA. 
IF THE COMMANO WORD HAS NOT REACHED ITS MAXIMUM VALUE 
(177777*1), THE TEST SEQUENCE IS REPEATED, 



SUBTEST 2 IS IDENTICAL TO SUBTEST 1, EXCEPT THAT THE PROGRAM 
CAUSES THE IE BIT TO BE SET IN EACH COMMAND WORD AND THEN 
VERIFIES THAT AN INTERRUPT OCCURS. 



012700 030523' 
004737 016322 1 
012737 000024 002214 



104402 



012700 000000 

104441 

012704 030200 1 

012703 002750' 

012314 

104404 

004737 015604' 

103405 

010001 



T6L00P 



BGNTST 

MOV 
JSR 
MOV 

BGNSUB 



*TST6ID,R0 

PCTSTSETUP 

O20..LQ0PCNT 



5$: 



SETPRI OPRIOO 



MOV *T6PACKET,R4 

MOV *TSTBLK,R3 

MOV (R3)>,(R4) 
BGNSEG 

JSR PC.SOFINIT 

BCS 10$ 

MOV R0.R1 



T6:: 
I ASCII MESSAGE TO IDENTIFY TEST 
I DO INITIAL TEST SETUP 
i PERFORM 20 ITERATIONS 

;//////////// BEGIN SUBTEST //////////// 

T6.1: 

TRAP CIBSUB 

j LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV *PRIO0,R0 
TRAP CSSPRI 

I GET THE ADDRESS OF COMMANO PACKET 

tBLOCK OF TEST DATA 

» INSERT THE NEXT TEST DATA WORD 

{>,>>>>>>>>>> BEGIN SEGMENT >>>>>>>■>>>>* 

TRAP C$BSEG 

{DO SOFT INIT OF CONTROLLER 

{BR IF SOFT INIT - OK 

j SAVE CONTENTS OF TSSR 
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H9 



SEQ 111 



976 



97 7 
976 
979 
9d0 
981 
982 
983 
984 
988 



989 
990 

991 



992 
993 
997 



998 
999 
.1000 
1001 
1002 
1003 
1004 
1005 
1009 



1010 

1011 

1012 
1013 
1014 
1015 
1016 
X020 



027340 
027340 
027342 
027344 
027346 
027350 
027354 
027360 
027364 
027370 
027374 
027400 
027402 
027404 
027404 
027406 
027410 
027412 
027414 
C27420 
027420 
027422 
027422 
027424 
027426 
027432 
027434 
027434 
027436 
027440 
027442 
027444 
027450 
027454 
027460 
027464 
027466 
027472 
027474 
027476 
027476 
027500 
027502 
027504 
027506 
027506 
027510 
027514 
027520 
027522 
027526 
027530 
027532 
027532 
027534 
027536 
027540 



104455 

001131 

003644' 

011644' 

005037 

005037 

004737 

042714 

010465 

004 737 

103407 

010001 

104455 

001132 

030235' 

011656' 

005237 

104406 

104410 
000170 
005737 
001404 

104456 

001133 

030313' 

011656- 

012702 

004737 

016501 

032701 

001402 

052702 

020201 

001404 

104456 
001134 
030210 
011656' 

104406 
004737 
016501 
010402 
062702 
020102 
001404 

104456 
001135 
030451 
015304 



ERRDF ERRNO t SFIERR , SFIMSG 



002220' 

002222' 

016146' 

000200 

000000 

016060' 



10$; 



CLR 


FATFLG 


CLR 


INTRECV 


JSR 


PC.CHKTS5R 


BIC 


*8IT7,CR4) 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


BCS 


15* 


MOV 


R0.R1 


ERRDF 


ERRNO, T6SSR, PKTSSR 



002220' 



15$: 



002222 



102206 
016146' 
000002 
000100 

000100 



22$: 



25$: 



30$: 



016146 
000000 

000010 



jDEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 

f CLEAR FATAL ERROR FLAG 

iCLEAR INTERRUPT RECEIVED FLAG 

»WAIT TOR READY, NON-AMBIGUOUS 

{DISABLE INTERRUPTS 

tSET THE PACKET ADDRESS 

jWAIT FOR SSR TO SET 

jBR IF CARRY SET (GOOD RETURN) 

{SAVE CONTENTS OF TSSR 

jDEVICE FATAL SSR FAILED TO SET 



C$ERDF 
601 
SFIERR 
SFIMSG 









TRAP 


C*ERDF 








.WORD 


602 








.WORD 


T65SR 








.WORD 


PKTSSR 


INC 


FATFLG 




iSET FATAL ERROR FLAG 




CKLOOP 






lLOOP ON ERROR, IF FLAG SET 

TRAP 


C$CLP1 


ESCAPE 


SUB 




jBY-PASS SUBTEST IF FATAL ERROR 

TRAP 
.WORD 


CJESCA 
L1O053 


rsi" 


INTRECV 




jOID AN INTERRUPT OCCUR ? 




BEQ 


22$ 




j BRANCH IF NOT 




ERRHRD 


ERRNO. T6INT 


.PKTSSR 







TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
603 
T6INT 
PKTSSR 



MOV 


OSCJNBMSSR! 


TSREJ,R2 


j EXPECTED CONTENTS OF TSSR 




JSR 


PC.CHKTSSR 




tWAIT FOR READY. NON-AMBIGUOUS 




MOV 


TSSRCRS),R1 




{GET THE CONTENTS OF TSSR 




BIT 


*OFL,R\ 




j IS OFF -LINE BIT SET ? 




BEQ 


25$ 




BRANCH IF NGf OFF -LINE 




BIS 


*0FL,R2 




(SET OFF-LINE IN EXPECTED DATA 




CMP 


R2.R1 




jDOES EXPECTED MAfCH RECEIVED ? 




BEQ 


30$ 




j OKAY IF MATCH 




ERRHRD 


ERRNO, T6NUA, 


PKTSSR 


{NBA NOT SET TO REJECT 

TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 
604 

T6NBA 

PKTSSR 


CKLOOP 






lLOOP ON ERROR ? 

TRAP 


C*CLP1 


JSR 


PCCHKTSSR 




iWAIT FO^ READv, NON-AMBIGUOUS 




MOV 


TSB^(R5),R1 




;GET TSBA REGISTER CONTENTS 




MOV 


R4 # R2 




1 START OF THE PACKET 




ADD 


*10, R2 




lEXPECT TSDA D PACKET ♦ 10 




CMP 


R1.R2 




, COMPARE EXPECTED TO RECEIVED 




BEQ 


35$ 




{ERROR IF NOT EQ»Nl 




ERRHRD 


ERRNO, T6TS0P 


,EXPREC 


{PRINT THE ERROR £ EXPQ/RECV 

TkAP 
. WOPO 
.WORD 
.WuRD 


C$FRHRD 
60^ 
TtoTSBA 
EXPP.EC 
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SEQ 112 



1021 
1022 
1023 
1024 
1028 



1029 



1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 



1040 
1041 
1042 
1043 
1044 
1045 



1046 
1047 



1048 
1049 
1050 
1051 

1052 
1053 
1057 
1058 



1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 



027542 
027546 
027550 
027550 

02 7552 
027554 
027556 
027560 
027560 
027560 
02 7562 
027564 
027570 
027574 
027576 
027602 
027606 
027610 

027614 
027614 
027614 

027616 
027622 
027624 

02?>. T 
02 7£. "> 

027632 
02761^ 
0276V.6 
027640 
027644 
027610 
02 7652 
027652 
027654 
027660 
027662 
027664 
027664 
027666 
027670 
027672 
027674 
02 7700 
027704 
027710 
027714 
027720 
02 7 724 
027726 



004737 010724' 
103404 

104456 
001136 
004737' 
015320' 



104405 

011300 

0427O0 177740 

020027 OOOOCH 

001002 

062703 0000C2 

020327 003C60' 

103002 

000137 027324' 



104403 

005737 002^20' 

00140? 

004737 017014' 



104402 



35$ 



40$ 



JSR 


PC.CKRAM 


I SEE IF 


DATA IN RAM IS CORRECT 




BCS 


40$ 


i BRANCH 


IF PACKET IN RAM IS CORRECT 


ERRHRD 


ERRNO , PKTRAM , RAMERR 


^REPORT 


THE RAM ERROR(S) 

TRAP 
.UORO 
.WORD 
. WORD 


CIERHRD 
606 

PKTRAM 
RAMERR 



ENDSEG 



012700 
i(»4441 
022704 
012703 
012314 

104<-04 

004157 
103-105 
010C01 

104455 

001137 

003644' 

011644' 

0050.57 

005037 

004737 

052714 

010465 

004737 

103407 

010001 



000 X>0 

030200 
002750' 



015604 



002220' 

002222' 

016146' 

000200 

000000 

016060' 



45$ 



50$ 



MOV 


(R3),R0 


BIC 


♦177740. RO 


CMP 


R0,*4 


BNE 


45$ 


ADD 


02, R3 


CMP 


R3,*TBLEND 


BHIS 


50$ 


JMP 


5$ 



60$ 



ENOSUB 



TST 
BEQ 
JSR 

BGNSUB 



5$ j 



10$: 



FATFLG 

60$ 

PC»CKDROP 



;<<<<<< 



< < * << 



<<<<<<<<<<<<< 



SETPRI OPRIOO 



MOV 4T6PACKET.R4 

MOV 0TSTBLK.R3 

MOV (R3)*,(R4) 
BGNSEG 

JSR PC.SOFINIT 

BCS 10$ 

MOV R0.R1 

ERRDF ERRNO t SFIERR t SFIMSG 



CLR 


FATFLG 


CLR 


INTRECV 


JSR 


PC.CHKTSSR 


BIS 


•6IT7 % (f<4) 


MOV 


R4.TS0BCR5) 


JSR 


PC.WAITF 


BCS 


15$ 


MOV 


RO.RI 



C$ESEG 



ENO SEGMENT 
10000$: 

TRAP 
{PACKET COMMAND WORD 
{GET BITS 0-4 

{DON'T TEST WRITE CHARACTERISTICS 
j BRANCH IF OK 

{GET NEXT WORD FROM DATA TABLE 
j REACHED cND OF TABLE ? 
j BRANCH IF ENO OF TABLE 
{CONTINUE TEST WITH NEW DATA 

l\W\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L10053: 

TRAP C$ESUB 

{ANY FATAL ERRORS ? 

{BRANCH IF NOT 

{TRY TO DROP THE UNIT 

\//////////// BEGIN SUBTEST //////////// 

T6.2: 

TRAP C$BSUB 

{LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV 0PRIOO.RO 

TRAP C$SPRI 

iGET THE ADDRESS OF COMMAND PACKET 

{START OF TEST DATA 

{PLACE NEXT DATA WORD IN PACKET 

, >>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 



TRAP 

{DO SOFT INIT OF CONTROLLER 

{BR IF SOFT INIT - OK 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 

{CLEAR FATAL ERROR FLAG 

{CLEAR INTERRUPT RECEIVED FLAG 

(WAIT FOR READY, NON- AMBIGUOUS 

{ENABLE INTERRUPTS 

{SET THE PACKET ADDRESS 

{WAIT FOR SSR TO SET 

iBR IF CARRY SET CGOOO RETURN) 

{SAVE CONTENTS OF TSSR 



C$BSEG 



CtERDF 

607 

SFIERR 
SFIMSG 
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SEQ 113 



1070 


027730 








027730 


104455 






027732 


001140 






027734 


030235' 






027736 


011656' 




1071 


027740 


005237 


002220 


1072 


027744 








027744 


104406 




1073 


027746 








027746 


104410 






027750 


00C170 




1074 


027752 


005737 


002222 


1075 


027756 


001004 




1079 


027760 








027760 


104456 






027762 


001141 






027764 


030371' 






027766 


011656' 




10CO 


027770 


012702 


102206 


1081 


027774 


004737 


016146 


1082 


030000 


016501 


000002 


1083 


030004 


032701 


000100 


1084 


030010 


001402 




1085 


030012 


052702 


000100 


1086 


030016 


020201 




1087 


030020 


001404 




1091 


030022 








030022 


104456 






030024 


001142 






030026 


030210' 






030030 


011656' 




1092 


0300.Y2 








030032 


104406 




1093 


030034 


004737 


016146 


1094 


030040 


016501 


000000 


1095 


030044 


010402 




1096 


030046 


062702 


000010 


1097 


030052 


020102 




1098 


030054 


001404 




1102 


030056 








030056 


104456 






030060 


001143 






030062 


030451' 






030064 


015304' 




1103 








1104 








1105 


050066 


004737 


010724 


1106 


030072 


103404 




1110 


030074 








030074 


104456 






030076 


001144 






030100 


004737* 






030102 


015320' 




1111 


030104 
030104 








030104 


104405 




1112 


030106 


011300 





ERRDF ERRNO, T6SSP, PKTSSR 



15$: 



INC 
CKLOOP 



TST 
BNE 
ERRHRD 



22*: MOV 

JSR 

MOV 

BIT 

^ BEQ 

^ BIS 

25$: CMP 

BEQ 



30$: 



35$: 



40$: 



ENDSEG 



mcv 



KATFLG 



ESCAPE SUB 



INTRECV 

22$ 

ERRNO, T6NINT, PKTSSR 



*SC!N8A'SSR!TSREJ.R2 

PCCHKTSSR 

TSSRCR5),R1 

*0FL,R1 

25$ 

•0KL.R2 

R2,R1 

30$ 



ERRHRD ERRNO , T6NB A , PKT SSR 



{DEVICE FATAL SSR FAILED TO SET 

TRAP CiERDF 
.WORD 608 
.WORD T6SSR 
.WORD PKTSSR 

j SET FATAL ERROR FLAG 

{LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 

j BY -PASS SUBTEST IF FATAL ERROR 

TRAP C$ESCAPE 

.WORD L1O054-. 

jDID AN INTERRUPT OCCUR ? 

{BRANCH IF YES 

{REPORT ERROR IF NO INTERRUPT 

TRAP C$ERHRD 

. WORD 609 
.WORD T6NINT 
.WORD PKTSSR 

{EXPECTED CONTENTS OF TSSR 

{UAIT FOR READY, NON -AMBIGUOUS 

jGET THE CONTENTS OF TSSR 

iIS OFF-LINE BIT SET ? 

{BRANCH IF NOT OFF-LINE 

{SET OFF-LINE IN EXPECTED DATA 

{DOES EXPECTED MATCH RECEIVED ? 

jOKAY IF MATCH 

{NBA NOT SET TO REJECT 







TRAP 


C$ERHRO 






.WORD 


610 






.MORD 


T6NBA 






. 3RD 


PKTSSR 


CKLOOP 




{LOOP ON ERROR ? 








TRAP 


C$CLP1 


JSR 


PC.CHKTSSR 


{WAIT FOR READY, NON- AMBIGUOUS 




MOV 


TSBACR5).R1 


{GET TSBA REGISTER CONTENTS 




MOV 


R4.R2 


{START OF THE PACKET 




ADD 


*10,R2 


{EXPECT TSDA TO PACKET ♦ 10 




CMP 


R1,R2 


{COMPARE EXPECTED TO RECEIVED 




BEQ 


35$ 


{ERROR IF NOT EGUAL 




ERRHRD 


ERRNO, T6TSBA,EXPREC 


{PRINT THE ERROR € EXPD/RECV 








TRAP 


C$ERHRD 






.WORD 


611 






.WORD 


T6TSBA 






.WORD 


EXPREC 



JSR PC.CKRAM 

BCS 40$ 

ERRHRD ERRNO , PK TRAM , RAMERR 



(R3D.R0 



{SEE IF DATA IN RAM IS CORRECT 

{BRANCH IF PACKET IN RAM IS CORRECT 

{REPORT THE RAM ERROR(S) 

TRAP C*ERHRD 

.WORD 612 
.WORD PKTRAM 
. WORD RAMERR 

l<<<<<<<<<<<<< END SEGMENT <<<<<<<«<<<<< 

10000$: 

TRAP C$ESEG 

{NEXT PACKET COri.v'VvU WORD 
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TSV5M - 
TEST 6 

1113 

1114 
1115 
1116 
1117 
1118 
1119 
1120 
J 121 



1122 
1123 
1124 
1125 
1126 
1127 
1128 



1129 
1130 
1131 
1132 
1133 
1135 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
114* 
1150 
1151 
1152 
1153 
1154 
1155 



1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 



HARDWARE 
COMMAND 

030 110 
030114 
030120 
030122 
030126 
030132 
030134 

030140 
030140 
030140 
030142 
030146 
030150 
030154 
030160 
030162 
030166 
030166 
030170 



030172 
030200 
030200 
030202 
030204 
030206 



030210 
030235 
030313 
030371 
030451 
030523 

030542 
030542 
030542 



TESTS 
REJECT 

042700 
020027 
001002 
062703 
020327 
103002 
000137 



104403 
005737 
001402 
004737 
004737 
103002 
000137 

104432 
000352 



000000 
052525 
125252 
052525 



103 
103 
125 
105 
ill 
103 



104401 



MACRO M1113 



177740 
000004 

000002 
003060- 

027650' 



002220' 

017014 
016270' 

027304 



07-FEB-84 10}58 




BIC 


0177740, RO 


CMP 


R0,04 


BNE 


45* 


ADD 


02, R3 


45$: CMP 


R3.4TBLEND 


BHIS 


50$ 


JMP 


5$ 



I5"f 
157 
156 
170 
156 
157 



155 
156 
145 
160 
143 
155 



50$: 



ENDSUB 





TST 


FATFLG 




BEQ 


60$ 




JSR 


PC.CKDROP 


60$: 


JSR 


PCTSTLOOP 




BCC 


62$ 




JMP 


T6L00P 


62$: 


EXIT 


TST 



j LOCAL STORAGE FOR THIS TEST 



.BLKB 10-<.-TSV267> 



T6PACKET: 




.WORD 





.WORD 


052525 


.WORD 


125c"5,? 


.WORD 


052525 



{LOCAL TEXT MESSAGES FOR TEST 



SEQ 114 



jCET BITS 0-4 

{DON'T TEST WRITE CHARACTERISTICS 

jBRANCH IF NOT WRITE CHARACTERISTICS 

)BY-PASS WRITE CHARACTERISES 

,HAVE WE COMPLETED DATA TABLE ? 

{BRANCH IF ALL TESTED 

>TEST WITH NEXT DATA 

|\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L 10054: 

TRAP C$ESUB 

; ANY FATAL ERRORS ? 

{BRANCH IF NUT 

{TRY TO DROP THE UNIT 

{SHOULD WE DO ITERATIONS ? 

{BRANCH IF NOT 

,l.O0P UNTIL COUNT EXPIRED 

{ALL DONE THIS TEST 

TRAP C$EXIT 
.WORD L 10052 ~. 



{COMMAND PACKET FOU TEST 

{WILL CONTAIN VARIABLE COMMANDS 



T6N6A 

T6SSR 

T6INT 

T6NINT 

T6TSBA 

TST6ID 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

ENDTST 



'Command Not Rejected' 

•Contents of TSSR Incorrect After Write r j t»'.kfi ' 
'Unexpected Interrupt Received ^n Write :' v.; ef 
'Expected Interrupt Not Received \\\ W'.'lt.v •'I'ldcct' 
•Incorrect TSBA Address After Packet WrM.<- 
'Command Reject' 



L 100152; 



TRAP 



C$ETST 



.SBTTL TEST 7; WRITE CHARACTERISTICS 



THIS TEST VERIFIES BASIC OPERATION OF THE WRITE CHARACTERISTICS 
COMMANO. IT VERIFIES THAT THE COMMAND BLOCK AND CHARACTERISTICS 
DATA BLOCK ARE FETCHED PROPERLY FriJh CPU MEMORY, 1HF. NEED BUFFER 
ADDRESS (NBA) BIT IN TSSR IS HANDLED PROPERLY, AN" THPT p PROPER 
MESSAGE PACKET IS STORED. WHERE APPROPRIATE . THIS TEST DOES NOT 
CHECK THAT THE VARIOUS FUNCTIONS ENABLED BY CHARACTERISTIC MODE 



L9 
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WRITE CHARACTERISTICS 
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SEQ 115 



1166 
1107 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
118o 
1184 

1189 
1190 
1191 
1192 
1193 



1194 
1195 
1196 



1197 
1198 
1199 
1200 
1201 

1202 
1203 
1204 
1208 
1209 



1210 
1211 
1212 
1213 
V14 

1219 



030544 
030544 
030544 
030550 
030554 
030562 
030562 
0301562 
030562 
030564 

030570 
030570 
030574 
030576 
030602 
030606 
0306 U 
030614 
030614 

030616 
030622 
03C624 
030626 
030626 
030630 
030632 
C 30634 
030636 
030642 
030646 
030652 
030656 
030660 
^30662 
030662 
0-0664 
033666 



104404 

004737 
103405 
010001 



012700 034033' 
004737 016322' 
012737 000024 002214' 



104402 

004737 034062 



012700 000000 
104441 

012703 002762' 

012704 032700' 
012764 000010 000006 



T7L00P 



5$: 



015604 



104455 

001275 

003644' 

011644' 

005037 002220' 

005037 002222' 

010465 000000 

004737 016146' 

103407 

010001 

104455 
001276 
033501' 



10* 



TUA BITS OPERATE PROPERLY} Thfc FUNCTIONING OF THESE BITS IS 
VERIFIED IN SUBSEQUENT TESTS, ALL COMMANDS EXECUTED IN THIS 
TEST HAVE THE INTERRUPT ENABLE (IE) BIT CLEARED 10 ZERO, 50 NO 
INTERRUPTS SHOULD BE GENERATED, HOWEVER, THE PROGRAM RUNS AT 
PROCESSOR PRIORITY 0, WITH THE INTERRUPT SERVTT. ROUTINE SET UP 
TO FLAG UNEXPECTED INTERRUPTS IF AN INTERRUr ,* OCCURS, A 
PROBLEM EXISTS IN EITHER THE PDP-11 BUS INTERFACE SECTION OR IN 
THE ROM OR PIPELINE, 

THIS TEST CHECKS VARIOUS MICROPROGRAM SEQUENCES. COMMAND 
DECODING. DMA LOGIC, AND BASIC PACKET PROTOCOL HANDLING. THIS 
IS THE FIRST TEST IN WHICH DATO DMA CYCLES (FOR STORING THE 
MESSAGE PACKET) ARE PERFORMED. ANY ERRORS IN THE BODY OF THE 
TEST CLE, ERRORS OTHER THAN INITIALIZATION ERRORS RELATED TO 
THE TRANSPORT BUS) DEFINITELY INDICATE A BAD M7455 MODULE. 



BGNTST 

MOV 
JSR 
MOV 

BGNSUB 



JSR 
SETPRI 



MOV 
MOV 
MOV 

BGNSEG 



JSR 
BCS 
MOV 
ERRDF 



0TST7ID.R0 

PC.TSTSETUP 

G20.,L00PCNT 



PC.T7REST 
OPRIOO 



OTSTBLK+10. ,R3 

$T7PACKET,R4 

48.,PKBCNT(R4) 



PCSOFINIT 

10$ 

R0,R1 

ERRNO,SFIERR,SFIMSG 



CLR 


FATFLG 


CLR 


INTRECV 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


BCS 


15$ 


MOV 


R0.R1 


ERRDF 


ERRN0,T7SSR,PKTSSR 



T7:: 
{ASCII MESSAGE TO IDENTIFY TEST 
;D0 INITIAL TEST SETUP 
{PERFORM 20 ITERATIONS 

j//////////// BEGIN SUBTEST //////////// 

T7.1: 

TRAP C$BSUB 
{SET PACKET TO START-UP VALUES 

{LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV *PRIOO,RO 
TRAP C5SPRI 

{START OF TEST DATA 

{GET THE ADDRESS OF COMMANO PACKET 

{START WITH MINIMUM ALLOWABLE VALUE 



>>>>>>>>>>>> 



BEGIN SEGMENT >>>>>>>>>>>> 
TRAP CSBSEG 



{DO SOFT INl'T OF CONTROLLER 

;BR IF SOFT INIT • OK 

{SAVE CONVENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP C$ERDF 
.WORD 701 
.WORD SFIERR 
.WORD SFIMSG 

{CLEAR FATAL ERROR FLAG 

{CLEAR INTERRUPT RECEIVED FLAG 

{SET THE PACKET ADDRESS 

{WAIT FOR SSR TO SET 

{BR IF CARRY SE f CGOOD RETURN) 

;SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 
.WORD 702 
.WORD T7SSR 



TSV5A - HARDWARF M 
TEST 7: WRITE CHMl 



iSfaMs" 11 " 



07-FEB-84 i0;58 



M9 



SEQ 116 



1220 
1221 

1222 



1223 
122*- 
1228 



1229 
1230 
1231 
1232 
1233 
1234 
1235 
1239 



1240 

1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1254 



1255 
1256 
1257 
1258 
1262 



120i 
1264 



1265 



030670 
030672 
030676 
030676 
030700 
030700 
030702 
030704 
030710 
030712 
030712 
030714 
030716 
030720 
030722 
030726 
030732 
030736 
030740 
030744 
030746 
030750 
030750 
030752 
030754 
030756 
030760 
030760 
030762 
030766 
030772 
030776 
031004 
031006 
031012 
031016 
031022 
031024 
031026 
031026 
031030 
031032 
031034 



031036 
031042 
031044 
031044 
031046 
031050 
031052 

031054 

031.054 
031054 



011656' 
005237 

104406 



002220' 



15$; 



INC 

CKL00P 



FATFLG 



104410 

000152 

005737 002222' 

001404 

1044 56 

001277 

033661' 

0x1656' 

016501 000002 

012702 000200 

032701 000100 

001402 

052702 0CO100 

020201 

001404 

104456 
001300 
033040' 
011656' 

104406 

004737 016146' 

016501 000000 

012702 032726' 

032762 000200 000012 

001404 

OC5237 002224' 

062702 000002 

062702 000016 

020102 

001404 

104456 
001301 
033750' 
015304' 



004737 
103404 

104456 
00130< J 
004737' 
015320' 



104405 



ESCAPE SEG 



TST INTRECV 

BEQ 22$ 

ERRHRD ERRN0.T7INT, PKTSSR 



22$: 



25$: 



MOV 


T SSR(R5),R1 


MOV 


4SSR.R2 


BIT 


tfOFL.Rl 


BEQ 


25* 


BIS 


4CJFL.R2 


CMP 


R2.R1 


BEQ 


30* 


ERRHRD 


ERRN0.T7NBA, PKTSSR 



30$ j 



32$: 



CKLOOP 

JSR 
MOV 
MOV 
BIT 
BEQ 
INC 
ADD 
ADD 
CMP 
BEQ 
ERRHRD 



010724' 



35$ 



JSH 
BCS 
ERRHRD 



40$ 



ENDSEG 



PCCHKTSSR 

TSBA(R5~> t Rl 

*T7BFR,R2 

OBIT7.XST2CR2) 

32$ 

EXTFEA 

*2,R2 

#14. ,R2 

Rl ,R2 

35$ 

EftRN0,T7TSBA,EXPREC 



PC.CKRAM 

40$ 

ERRNO.PKTRAM.RAMERR 



.WORD 
;SET FATAL ERROR FLAG 
tLOOP ON ERROR, IF FLAG SET 

TRAP 
{BY -PASS SUBTEST IF FATAL ERROR 

TRAP 

.WORD 
j DID AN INTERRUPT OCCUR ? 
{BRANCH IF NOT 



PKTSSR 



C$CLP1 

C$ESCAPE 
10000$-, 



TRAP C$ERHRD 

. WORD 703 
.WORD T7INT 
.WORD PKTSSR 

GET THE CONTENTS OF TSSR 

EXPECTED CONTENTS OF TSSR 

IS OFF-LINE BIT SET ? 

BRANCH IF NOT OFF LINE 

SET OFF-LINE IN EXPECTED DATA 

DOES EXPECTED MATCH RECEIVED ? 

OKAY IF MATCH 

NBA NOT ZERO 

TRAP C$ERHRD 

. WORD 704 
.WORD T7NBA 
.WORD PKTSSR 

LOOP ON ERROR ? 

TRAP C$CLP1 

WAIT FOR READY, NON- AMBIGUOUS 

GET TS8A REGISTER CONTENTS 

START OF THE OATA PUFFER 

IS EXTENDED FEATURES 31*7 3i:7 ? 

BRANCH IF EXTENOED FEATURES OFF 

SET EXTENOED FEATURES FOR SUBTEST 6 

EXTRA WORD IF SPECIAL FEATURES 

EXPECTED CONTENTS OF TSDA 

COMPARE EXPECTED TO RECEIVED 

ERROR IF NOT EQUAL 

PRINT THE ERROR 6 EXPD/RECV 

TRAP C$F_RHRD 

.WORD 705 
.WORD T7TSBA 
.WORD EXPREC 



j SEE IF DATA IN RAM IS CORRECT 
{BRANCH IF PACKET IN RAM IS CORRECT 
{REPORT THE RAM ERRORCS) 

TRAP C$ERHRO 

.WORD 706 

.WORD PKTRAM 

.WORD RAMERR 

!<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<«<< 

10000* : 

TRAP CJESEG 



N9 



TS\'SA - HARDUARF. TESTS 


MACRO M 


TEST 7; WRITE 


CHARACTERISTICS 


1266 031056 


012364 


000006 


1267 031062 


020327 


003060' 


1268 031066 


103002 




1269 031070 


000137 


030614' 


1270 






1271 031074 






031074 






031074 


104403 




1272 






1273 031076 


005737 


002220' 


1274 031102 


001402 




1275 031104 


004 737 


017014' 


1276 031110 






1277 






12/8 






1279 






1280 






1281 






1282 






1283 






1284 






1285 






1286 






1287 031110 






031110 






031110 


104402 




1208 






1289 031112 






031112 


012700 


000000 


031116 


104441 




1290 031120 


C 12/03 


0? :) 746 ) 


1291 031124 


012704 


032/00' 


1292 031130 


004737 


034062' 


1293 






1294 051134 






031134 


104404 




1295 






1296 031136 


004737 


015604' 


1297 031142 


103405 




1301 031144 


010001 




.1.302 031146 






031146 


104455 




031150 


001303 




031152 


003644' 




031154 


011644' 




1303 031156 


005037 


002222' 


1304 031162 


010400 




1305 031164 


06X300 




1306 031166 


056310 


000002 


1307 031172 


010465 


000000 


:.30\ 051176 


004737 


016060' 


:.309 031202 


1C3405 




:.310 031204 


010001 




:.314 031206 






031206 


104455 




031210 


001304 




031212 


033501* 





M1113 07-FEB-84 10:58 



MOV 


(R3)*,PKBCNT(R4) 


CMP 


R3.#TBLEND 


BHIS 


55$ 


JMP 


5$ 



55$ 



ENDSUB 



60$ 



J ♦ 



TST 


FATFLG 


BEQ 


60$ 


JSR 


PCCKOROP 



SEQ 117 



;SET THE TEST WORD 
j HAS ALL DATA BEEN TESTED ? 
{BRANCH IF ALL DATA DONE 
j BRANCH TILL BACK TO ZERO 

iWWW.WWW END SUBTEST WWWVAWW 

L10056; 

TRAP C$ESUB 

{ANY FATAL ERRORS ? 

{BRANCH IF NOT 

;TRY TO DROP THE UNIT 



{TEST 7, SUBTEST 2 

CHECK THAT UNUSED BITS BEING SET CAUSES 
WRITE CHARACTERISTICS COMMAND TO BE REJECTED 



BGNSUB 



SETPRI tfPRlOO 



5$: 



MOV 
MOV 
JSR 

BGNSEG 



$T72DATA,R3 

OT7PACKET.R4 

PC.T7REST 



?//////////// BEGIN SUBTEST //////////// 

T7.2: 

TRAP C$BSUB 

{LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV 4PRI00.R0 

TRAP C$SPRI 

{START OF TEST DATA FOR SUBTEST 
;GET THE ADDRESS OF COMMAND PACKET 
{RESTORE PACKET TO STARTING VALUES 



>>>>>>>>>>*> 



BEGIN SEGMENT >>>>>>*>>■>>> 

TRAP C*B$EG 



* * * - *fc* 



JSR 


PC.SOFINIT 


BCS 


10$ 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



DO SOFT INIT OF CONTROLLER 

BR IF SOFT INIT - OK 

SAVE CONTENTS OF TSSR 

DEVICE FATAL ERROR DURING INIT 



10$ 







TRAP 


CtF.RDF 






.WORD 


707 






.WORD 


SFIERR 






.WORD 


SFIMSG 


CLR 


IN7RECV 


t CLEAR INTERRUPT RECEIVED FLAG 




MOV 


R4.R0 


{START OF THE COMMAND PACKET 




ADD 


(R3),R0 


{OFFSET TO THE DATA WORD TO TEST 


BIS 


2CR3)»(R0) 


;SET THE DATA BITS TO EE TESTED 




MOV 


R4 t TSDB^'R5) 


{SET THE PACKET ADDRESS 




JSR 


PC, WAITF 


{WAIT FOR SSR TO SET 




BCS 


15$ 


;BR IF CARRY SET (GOOD RETURN) 




MOV 


R0.R1 


i'^AVE CONTENTS OF TSSR 




ERRDF 


ERRN0.T7SSR.PKTSSR 


{DEVICE FATAL SSR FAILED TO SET 








TRAP 


C$ERDF 






,wof:d 


708 






.WORD 


T7SSR 



TSV5A - HARDWARE TESTS MACRO M1113 
TEST 7; WRITE CHARACTERISTICS 



BIO 



1315 
1516 



1517 
1518 

1323 



1523 
1524 
13?5 
1526 
1527 
1526 
1529 
1530 
1331 
1552 
1534 
1337 



1358 

1539 
1540 
1344 



1545 
1346 



1547 
1348 
1349 
1350 
1351 
1352 
1353 



1354 
1355 
1356 

1357 
1358 
1359 



031214 
031216 
051216 
051220 
051220 
051222 
051224 
051250 
051252 
051232 
031234 
031256 
051240 
051242 
051246 
031252 
031256 
031260 
031264 
031266 
031270 
031272 
031502 
051306 
031310 
031510 
031312 
051314 
051316 
051520 
031320 
031322 
031526 
031330 
031330 
031552 
031554 
031356 
051340 
031340 
031340 
051 3*0 

051542 
031346 
031352 
031554 

031360 
031360 
031360 



011656' 

104406 

104410 

000U6 

005737 002222 

001404 



10445b 

001305 

033661' 

011656' 

016501 

012702 

052701 

001402 

052702 

020201 

001414 

010100 

020027 
001404 

104456 
001506 
033115 
011656 



104403 



07-FEB-84 10t58 



15$ 



000002 
102206 
000100 

000100 



002000 



221 i 



25$ j 



CKLOOP 




ESCAPE 


SEG 


TST 


INTRECV 


BEQ 


221 


ERRHRD 


ERRN0.T7INT, PKTSSR 


MOV 


TSSR(R5).R1 


MOV 


♦SC!SSR»TSREJ!N6A,R2 


BIT 


♦0FL.R1 


B«rQ 


25f 


»J13 


♦0FL.R2 


CMP 


R2.R1 


BEQ 


301 


MOV 


Rl.RO 


XOR 


R2.R0 


CMP 


RO.ttSA 


BEQ 


30* 


ERRKRD 


ERRN0»T72RE J, PKTSSR 



104406 

032701 002000 

001004 

104456 
001507 
032762' 
011656' 



104405 

062703 000004 

020527 032762 

103002 

000137 03U24' 



30»j 



CKLOOP 

BIT 
BNE 
ERRH3D 



35C: 



ENOSEG 



571: 



ENOSUB 



♦N6A.RI 
35« 

ERRN0.T72N6A, PKTSSR 



ADD 


♦4,R3 


CMP 


R3.OT72D0NE 


8HIS 


5?t 


JMP 


51 



SEQ 118 



.WORD PKTSSa 
l LOOP ON ERROR. IF FLAG SET 

TRAP CICLP1 

jBY-PASS CHECKS IF FATAL ERROR 

TRAP CIESCAPE 

.WORD 10000*'. 
»0ID AN INTERRUPT OCCUR ? 
iBRANCH IF NOT 



TRAP 

.WORD 
.WORD 
.WORD 



iGET THE CONTENTS OF TSSR 

lEXPECTED CONTENTS OF TSSR 

iIS OFF-LINE BIT SET ? 

iBRANCH IF NOT OFF-LINE 

iSET OFF-MNE IN EXPECTED DATA 

iDOES EXPECTED MATCH RECEIVFD 

lOKAY IF MATCH 

iDATA FROM TSSR 

»FIND BITS IN ERROR 

lIS NBA ONLr BIT IN ERROR 7 

I DON'T PRINT ERROR IF NBA ONL 

iCOMMANO NOT REJECTED 



C1ERHRD 
709 
T7INT 
PKTSSR 



lLOOP ON ERROR ? 

iIS NBA BIT SET ? 
lOKAY IF NBA SET 
|N6A NOT SET 



TRAP 
.WOtfD 
■ WOPD 

.WORD 



Y BAD BIT 

OERHF.D 
710 

T72REJ 
PKTSSR 



TRAP CtCLPl 



TRAP 

.WORD 

.WORD 

.WOOD 



C»ERH^D 

711 

T 72NBA 

PKTSSR 



;<<<<<<<<<<<<< ENO SEGMENT <<<<<<<<<<<<< 

100001: 

TRAP CIE5EG 

iPOINT TO NEXT DATA PAIR 
iCOMPARE TO END OF TEST DATA 
iBRANCH IF ALL DATA TESTED 
iBRANCH TILL BACK TO ZERO 

l\\\\\\\\\\\\\ ENO SUBTEST \\\\\\\\\\\\\ 

L 10057 i 

TRAP C*ESUO 



j TEST 7, SUBTEST 3 

I CHECK THE WRITE CHARACTERISTICS COMMAND IS REJECTED 



inr }rjwrtHMih»mh hnii 



07-FEB-80 10i58 



CIO 



SEQ 119 



1360 
1361 
136? 
1363 
1364 



1365 

1366 



1367 
1368 
1369 
1370 
1371 

1372 
1373- 
1374 
1378 
1379 



1380 
1381 
1382 
1383 
1384 
1385 
1389 



1390 
1391 



1392 

1393 
1397 



13*6 

1390 

1400 

1401 
1402 
1403 
1404 
1405 



iir ISSUED WITH AN INVALID DATA BLOCK BYTE COUNT 



031362 
031362 
031362 

031364 
031364 
031370 
031372 
031376 
031402 

03140b 
031406 

031410 
031414 
031416 
031420 
031420 
031422 
031424 
031426 
031430 
031434 
031440 
031444 
031*50 
0314^2 
0314:i4 
031454 
031456 
031460 
031462 
031464 
031464 
031466 
031466 
031470 
0314/2 
031476 
031500 
031500 
031502 
0315O4 
031506 
031510 
031514 
031520 
031524 
031526 
031532 
031534 
03153C 



104402 



012700 
104441 
012703 
01?/04 
004737 



104404 

004737 
103405 
010001 

104455 

001310 

003644' 

011644' 

005037 

010364 

01O465 

004737 

103405 

010001 

104455 
001311 
0*3501' 
011656' 

1W406 

104410 
000116 
005737 
001404 

104456 

001312 

033661' 

011656' 

016501 

012702 

032701 

001402 

052702 

020201 

001414 

010100 



000000 

000001 
032 700"* 
034062* 



015604 



BGNSUB 



SETPRI WUOO 



55? 



002222 
000006 
000000 
016060' 



10$ i 



15$ j 



002222 



000002 
102206 
000100 

000100 



22*5 



251 1 



l//////////// BEGIN SUBTEST //////////// 

T7.3: 

TRAP C$BSUB 

lLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV *PRIOO,RO 
TRAP CISPRI 



MOV 


•1, R3 


tSTARTING BYTE COUNT 




MOV 


0T7PACKET.R4 


iGET THE ADDRESS Of* COMMANO PACKET 


JSR 


PC.T7REST 


jRESTORE PACKET TO STARTING VALUES 


BGNSEG 




!>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 






TRAP 


C$BSEG 


JSR 


PC.SOFINIT 


jDO SOFT INIT OF CONTROLLER 




BCS 


10$ 


iBR IF SOFT INIT • OK 




MOV 


RO.Rl 


iSAVE CONTENTS OF TSSR 




ERRDF 


ERRNO.SFIERR.SFIMSG 


iDEVICE FATAL ERROR DURING INIT 








TRAP 


ClERrf 






.WORD 


VI? 






>OR0 


SFIERR 






.wc?r> 


SFIMSG 


CLR 


INTRECV 


iCLEAR INTERRUPT RECEIVED FLAG 




MOV 


R3.PKBCNTCR4) 


» INSERT THE BYTE COUNT FOR TEST 




NOV 


R4,TSD6(R5) 


iSET THE PACKET ADDRESS 




JSR 


PC»WAITF 


iWAIT FOR SSR TO SET 




BCS 


15$ 


iBR IF CARRY SET (GOOD RETURN) 




MOV 


R0.R1 


iSAVE CONTENTS OF TSSR 




ERRDF 


ERRN0,T7SSR,PKTSSR 


iDEVICE FATAL SSR FAILED TO SET 








TRAP 


CIEKDF 






.WORD 


713 






.WORD 


T7SSrt 






.WORD 


PKTSSR 


CKLOOP 




lLOOP ON ERROR, IF FLAG SET 








TRAP 


CICLP1 


ESCAPE 


SEG 


iBY-PASS SUBTEST IF FATAL ERROR 








TRAP 


C$ESCAPE 






.WORD 


10000$ -. 


TST 


INTRECV 


jDID AN INTERRUPT OCCUR ? 




BEQ 


22 % 


j BRANCH IF NOT 




ERRMRO 


ERRN0.T7INT.PKTSSR 










TRAP 


C$ERHRD 






.WORD 


714 






.WORD 


T7INT 






.WORD 


PKTSSR 


MOV 


TSSR(R5),R1 


iGET THF. CONTENTS OF TSSR 




MOV 


♦SC!SSR8TSREJ!NBA,R<2 


lEXPECTED CONTENTS OF TSSR 




BIT 


OOFL.Rl 


lIS OFF-LINE BIT SET ? 




BEQ 


25$ 


.BRANCH IF NOT OFF-LINE 




BIS 


«0FL,R2 


iSET OFF-LINE IN EXPECTED DATA 




CMP 


R2.R1 


(DOES EXPECTED MATCH RECEIVED ? 




BEQ 


30$ 


tOKAY IF MATCH 




MOV 


R1.R0 


rOATA FROM TSSR 
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1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 



F10 



07-FEB-84 10{58 



SEQ 122 



i ♦ 

{TEST 7, SUBTEST 5 

[CHECK THAT WRITE CHARACTERISTICS COMMAND IS REJECTED IF THE 
{MESSAGE BUFFER LENGTH SPECIFIES AN INVALID COUNT (LESS THAN 14) 
i 
J - 



1508 
1509 



1510 
1511 
1512 
1513 
1514 

1515 
1516 
1517 
1521 
1522 



1523 
1524 
1525 
1526 
1527 
1528 
1532 



1533 
1534 



1535 
1536 
1540 



1541 
1542 

1543 



032054 
032054 
032054 

032056 
032056 
032062 
032064 
032070 
032074 

032100 
032100 

032102 
032106 
032110 
032112 
032112 
032114 
032116 
032120 
032122 
032126 
032132 
03.2136 
032142 
C32144 
032146 
032146 
032150 
032152 
032154 
032156 
032156 
032160 
032160 
032162 
032164 
032170 
0*2172 
032172 
032174 
032176 
032200 
032202 
052206 
032212 



104402 



012700 000000 
104441 

012703 OOOOOl 

012704 032700* 
004737 034062' 



104404 

004737 
103405 
010001 

104455 

001322 

003644 ' 

011644' 

005037 

010537 

010465 

004737 

103405 

010001 

104455 
001323 
033501' 
011656' 

104406 

104410 
000116 
005737 
001404 

104456 
001324 
033661 
011656 
016501 
012702 
032701 



5$: 



01J5604 



002222' 
032714 

oooooo 

016060' 



10$: 



8GNSUB 



SETPRI GPRIOO 



MOV 01, R3 

MOV *T7PACKET,R4 

JSR PC.T7REST 

BGNSEG 



JSR PC.SOFINIT 

BCS 10$ 

MOV RO.Ri 

ERRDF ERRNU , SFIERR t SFIMSG 



CLR INTRECV 

MOV R3,T7DATA*4 

MOV R4.TSDBCR5) 

JSR PC.WAITF 

BCS 15$ 

MOV R0.R1 

ERRDF ERRNO , T7SSR , PK TSSR 



15$: 



002222 



I //////////// BEGIN SUBTEST //////////// 

T7.5: 

TRAP C$BSU6 

{LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV 0PRIOO.RO 
TRAP C$SPRI 

{STARTING BUFFER LENGTH 

{GET THE ADDRESS OF COMMAND PACKET 

{RESTORE PACKET TO STARTING VALUES 

!>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP C$BSEG 

{DO SOFT INIT OF CONTROLLER 

{BR IF SOFT INIT - OK 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP CIERDF 
.WORD 722 
.WORD SFIERR 
.WORD SFIMSG 

{CLEAR INTERRUPT RECEIVED FLAG 

{INSERT THE 8AD MESSAGE LENGTH 

{SET THE PACKET ADDRESS 

{WAIT FOR SSR TO SET 

{BR IF CARRY SET (GOOD RETURN) 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 



000002 
102206 
000100 



22$? 







TRAP 


C$ERDF 






.WORD 


723 






.WORD 


T7S5R 






.WORD 


PKTSSR 


CKLOuP 




{LOOP ON ERROR, IF FLAG SET 








TRAP 


C$CLP1 


ESCAPE 


SEG 


{BY -PASS SUBTEST IF FATAL ERROR 








TRAP 


C$ESCAPE 






.WORD 


10000$-. 


TST 


INTRECV 


{DID AN INTERRUPT OCCUR ? 




BEQ 


22$ 


{BRANCH IF NOT 




ERRHRD 


ERRNO, T7INT, PKTSSR 










TRAP 


C$ERHRD 






.WORD 


724 






.WORD 


T7INT 






.WORD 


PKTSSR 


MOV 


TSSRCR5),R1 


{GET THE CONTENTS OF TSSR 




MOV 


4SC!SSR»TSREJ«NBA,R2 


{EXPECTED CONTENTS OF TSSR 




BIT 


G0FL,R1 


{IS OFF-LINE BIT SET ? 
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0/ -FEB -84 10:58 



G10 



SEQ 123 



1544 


032216 


001402 




1545 


032220 


052702 


000100 


1546 


032224 


020201 




1547 


032226 


001414 




1548 


032230 


010100 




1549 


032232 






1550 


032242 


020027 


002000 


1551 


032246 


001404 




1555 


032250 








032250 


104456 






032252 


001325 






032254 


033403' 






032256 


011656' 




1556 


032260 








032260 


104406 




1557 


032262 


032701 


002000 


1558 


032266 


001004 




1562 


032270 








032270 


104456 






032272 


001326 






032274 


032762' 






032276 


011656' 




1563 


032300 






1564 


032300 
032300 








032300 


104405 




1565 








1566 


032302 


005203 




1567 


032304 


020327 


000016 


1568 


032310 


002002 




1569 


032312 


000137 


032070' 


1570 








1571 


032316 
032316 








032316 


104403 




1572 








1573 








1574 








1575 








1576 








1577 








1578 








1579 








1580 








1581 








1582 








1583 








1584 








1585 


032320 
032320 








032320 


104402 




1586 


032322 


005737 


002224' 


1587 


032326 


001002 




1588 


032330 








032330 


104432 






032332 


001576 




1589 


032334 


004737 


034062' 



25$: 



BEQ 


25$ 


BIS 


00FL.R2 


CMP 


R2.R1 


BEQ 


30$ 


MOV 


Rl.RO 


XOR 


R2.R0 


CMP 


RO.ONBA 


BEQ 


30$ 


ERRHRD 


ERRN0.T75REJ, PKTSSR 



30$: 



CKLOOP 

BIT 
BNE 
ERRHRD 



35$: 



ENDSEG 



57$: 



J ♦ 



ENDSUB 



*NBA # R1 
35$ 

ERRN0,T72NBA, PKTSSR 



INC 


R3 


CMP 


R3.014. 


BGE 


57$ 


JMP 


5$ 



i BRANCH IF NOT OFF-LINE 

»SET OFF-LINE IN EXPECTED DATA 

tDOES EXPECTED MATCH RECEIVED ? 

j OKAY IF MATCH 

I DATA FROM TSSR 

{FIND BITS IN ERROR 

jIS N8A ONLY BIT IN ERROR ? 

j DON'T PRINT ERROR IF NBA ONLY BAD BIT 

j COMMAND NOT REJECTED 

TRAP 



j LOOP ON ERROR ? 

iIS NBA BIT SET ? 
I OKAY IF NBA SET 
I NBA NOT SET 



.WORD 
.WORD 
.WORD 

TRAP 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
725 

T75REJ 
PKTSSR 

C$CLP1 



C$ERHRD 
726 

T72NBA 
PKTSSR 



;<<<<<<<<<<<<< ENO SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C$ESEG 

I NEXT BUFFER LENGTH 

j HAVE ALL BAD VALUES BEEN TESTED ? 

j BRANCH IF ALL TESTED 

; BRANCH TILL BACK TO ZERO 

;\\\\\\\\\\\\\ ENO SUBTEST \\\\\\\\\\\\\ 

L 10062: 

TRAP C$ESUB 



j TEST 7, SUBTEST 6 

j THIS SUBTEST IS EXECUU-.'' -hv . iF THE EXTENDED 

{FEATURES MODE IS ENABLE. 'AS DETERMINED BY EXAMINING 

t XST2 AFTER A PREVIOUS EV;;»JTION Of WRITE CHARACTERISTICS). 

i IT VERIFIES THAT A FIFTL CHARACTERISTICS DATA WORD IS FETCHED 

j IF THF. BYTE COUNT PARAMLTER IN THE COMMAND PACKET IS 10 DECIMAL 

j OR GREATER. 



J 



4$: 



BGNSUB 



TST 
BNE 
EXIT 



JSR 



//////////// 



EXTFEA 

4$ 

TST 



PC.T7REST 



t//////////// BEGIN SUBTEST 

T7.6: 

TD^p C$BSUB 

lIS EXTENDED FEATURES SOFT. SW SET? 

}8R, IF SOFTWARE SWITCH i!S SET (ON) 

I NO EXTENDED FEATURES EXIT THIS TKST 

TRAP CSEXIT 

.WORD L10055- 

{SET PACKET TO START-UP VALUES 



TSV5A - HARDWARE TESTS 
TEST 7: " 



WRITE CHARACTERISTICS 



M1113 07-FEB-84 10:58 



H10 



SEQ 124 



1590 








1591 


032340 








032340 


012700 


000000 




032344 


104441 




1592 


032346 


012703 


002764' 


1593 


032352 


012704 


032700' 


1594 


032356 


012737 


000200 032720 


1595 


032364 


012764 


000012 000006 


1596 


032372 






1597 


032372 








032372 


104404 




1598 








1599 


032374 


004737 


015604' 


1600 


032400 


103405 




1604 


032402 


010001 




1605 


032404 








032404 


104455 






032406 


001327 






032410 


003644 ' 






032412 


011644' 




1606 


032414 


005037 


002220' 


1607 


032420 


005037 


002222' 


1608 


032424 


010465 


000000 


1609 


032430 


004737 


016146' 


1610 


032434 


103407 




1611 


032436 


010001 




1615 


032440 








032440 


104455 






032442 


001330 






032444 


033501' 






032446 


011656' 




1616 


032450 


005237 


002220' 


1617 


032454 








032454 


104406 




1618 


032456 








032456 


104410 






032460 


000156 




1619 


032462 


005737 


002222' 


1620 


032466 


001404 




1624 


032470 








032470 


104456 






032472 


001331 






032474 


033661' 






0324 76 


011656' 




1625 


032500 


016501 


000002 


1626 


032504 


012702 


000200 


1627 


032510 


032701 


000100 


1628 


032514 


001402 




162Q 


032516 


052702 


000100 


1630 


032522 


020201 




1631 


032524 


001404 




1635 


032526 








032526 


104456 






032530 


001332 






032532 


033040' 






032534 


011656' 




1636 


032536 







SETPRI OPRIOO 



5$: 



MOV 
MOV 
MOV 
MOV 

BGNSEG 



10$: 



15$: 



INC 
CKLOOP 



22$: 



25$: 



*TSTBLK*12, ,R3 
#T7PACK"T,R4 
*200.T7S> 
01O..PKBCNTCR4) 



JSR 


PC.SOFINIT 


BCS 


10$ 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



CLR 


FATFLG 


CLR 


INTRECV 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


BCS 


15$ 


MOV 


R0,R1 


ERRDF 


ERRN0.T7SSR, PKTSSR 



FATFLG 



ESCAPE SEG 



TST INTRECV 

BEQ 22$ 

ERRHRD ERRN0.T7INT, PKTSSR 



MOV 


TSSR(R5),R1 


MOV 


*SSR,R2 


BIT 


O0FL.R1 


BEQ 


25$ 


BIS 


O0FL.R2 


CMP 


R2.R1 


BEQ 


30$ 


ERRHRD 


ERRN0.T7NB A .PKTSSR 



lLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV OPRIOO,RO 
TRAP C$SPRI 
I START OF TEST DATA 
j GET THE ADORESS OF COMMAND PACKET 
j SPECIAL BIT SET FOR EXTFEA RAM RD 
; START WITH EXTENDED FEATURES VALUE 

j >>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP C$BSEG 



j DO SOFT INIT OF CONTROLLER 
iBR IF SOFT INIT - OK 
I SAVE CONTENTS OF TSSR 
jDEVICE FATAL ERROR DURING INIT 

TRAP 



.WORD 
.WORD 
.WORD 

{CLEAR FATAL ERROR FLAG 

j CLEAR INTERRUPT RECEIVED FLAG 

j SET THE PACKET ADDRESS 

I WAIT FOR SSR TO SET 

jBR IF CARRY SET (GOOO RETURN) 

tSAVE CONTENTS OF TSSR 

j DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORO 
.WORD 
.WORD 

;SET FATAL ERROR FLAG 

tLOOP ON ERROR, IF FLAG SET 

TRAP 

:BY-PASS SUBTEST IF FATAL ERROR 

TRAP 
.WORD 

j DID AN INTERRUPT OCCUR ? 

I BRANCH IF NOT 



TRAP 
.WORD 
.WORD 
.WORD 
TSSR 
TSSR 

7 



I GET THE CONTENTS OF 

i EXPECTED CONTENTS OF 

tIS OFF-LINE BIT SET 

jBRANCH IF NOT OFF-LINE 

jSET OFF-LINE IN EXPECTED DATA 



tDOES 
jOKAY 
iNBA NOT 



EXPECTED 
IF MATCH 
ZERO 



30$: 



CKLOOP 



jLOOP ON ERROR ? 



MATCH RECEIVED ? 



TRAP 
.WORD 
.WORD 
.WORD 



CIERDF 
727 

SFIERR 
SFIMSG 



C$ERDF 
728 
T7SSR 
PKTSSR 



C$CLP1 

C$ESCAPE 
10000$-. 



C$ERHRD 
729 
T/INT 
PKTSSR 



C$ERHRD 
7 30 
T7NBA 
PKTSSR 



110 
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032536 


104406 




1637 


032540 


004737 


016146' 


1638 


032544 


016501 


000000 


1639 


032550 


012702 


032726' 


1640 


032554 


032762 


000200 


1641 


032562 


001402 




1642 


032564 


062702 


000002 


1643 


032570 


062702 


000016 


1644 


032574 


020102 




1645 


032576 


001404 




1649 


032600 








032600 


104456 






032602 


001333 






032604 


033750' 






032606 


015304' 




1650 








1651 








1652 


032610 


012704 


032710' 


1653 


032614 


0O4737 


011034' 


1654 


032620 


103404 




1658 


032622 








032622 


104456 






032624 


001334 






032626 


004737' 






032630 


015320' 




1659 








1660 


032632 


012704 


032700' 


1661 


032636 
032636 








032636 


104405 




1662 








1663 


0!,^M0 


012364 


000006 


1664 


052644 


020327 


003060' 


1665 


«Vf'?S50 


103002 




1666 


03565;* 


000137 


032372' 


166? 








:• 66 


032656 

J 2656 






. i' i 


032656 


104403 






032660 


005737 


002220' 


* 


032664 


001402 






032666 


004737 


017014' 


v 


032672 
2672 








0S2672 


104432 




! '-> 


052674 


001234 




iV'i 
If 79 








16'di 


v'2676 






16^. 


.".\i-2700 






1664 


; T .?7oo 


100004 




} 66'. 


032702 


032710' 




1666 


032704 


000000 





000012 



07 -FEB -84 


10 {58 






JSR 


PC.CHKTSSR 




MOV 


TSBACR5),P1 




MOV 


OT7BFR.R2 


2 


BIT 


*BIT7,XST2(R2) 




BEQ 


32$ 




ADD 


02, R2 


32$; 


ADO 


014.. R2 




CMP 


R1.R2 




BEQ 


35$ 




ERRHRD 


ERRN0,T7TSBA,EXPREC 



35$; 



MOV 


*T7DATA,R4 


iSET PO 


JSR 


PC.CKRAM2 


{SEE IF 


BCS 


40$ 


j BRANCH 


ERRHRD 


ERRNO.PKTRAM,RAMERR 


j REPORT 



40$: 



55$: 



MOV 
ENDSEG 



MOV 
CMP 
BHIS 
JMP 

ENDSU6 



OT7PACKET.R4 



(R3)*,PKBCNT(R4) 

R3,*TBLEND 

55$ 

5$ 



60$; 



i * 



TST 


FATFLG 


BEQ 


60$ 


JSR 


PC.CKDROP 



EXIT 



TST 



{LOCAL STORAGE FOR THIS TEST 
; - 



.BLKB 



T7PACKET: 



10-< . -TSV267> 



.UORD 100004 
.WORD T7DATA 
. WORD 



SEQ 125 



TRAP C$CLP1 

I WAIT FOR READY, NON-AMBIGUOUS 

I GET TSBA REGISTER CONTENTS 

I START OF THE DATA BUFFER 

lIS EXTENDED FEATURES BIT SET ? 

{BRANCH IF EXTENOED FEATURES OFF 

I EXTRA WORO IF SPECIAL FEATURES 

I EXPECTED CONTENTS OF TSDA 

I COMPARE EXPECTED TO RECEIVED 

I ERROR IF NOT EQUAL 

{PRINT THE ERROR £ EXPD/RECV 

TRAP C$ERHRD 
.WORD 731 
.WORD T7TSBA 
.WORD EXPREC 



;NTER FOR CHECKER 

DATA IN RAM IS CORRECT 

IF PACKET IN RAM IS CORRECT 

THE RAM ERROR(S) 

TRAP C$ERHRD 
.WORD 732 
.WORD PK7RAM 
.WORD RAMPRR 



{RESET PACKET POINTER 

l<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C$ESEG 

j SET THE TEST WORD 
{HAS ALL DATA BEEN TESTED ? 
i BRANCH IF ALL DATA OONE 
{BRANCH TILL BACK TO ZERO 

|\\\\\\\\\\\\\ ENO SUBTEST WWWWWVA 

L 10063: 

TRAP C$ESUB 

;ANY FATAL ERRORS ? 

{BRANCH IF NOT 

{TRY TO DROP THE UNIT 



{ALL DONE THIS TEST 



TRAP 
.WORD 



C$EXIT 

L10055-. 



{COMMAND PACKET FOR TEST 

{WRITE CHARACTERISTICS COMMANO . WITH ACK 

{ADDRESS OF CHARACTERISTICS BLOCK 



TSV5A - HARDWARE TESTS MACRO M1113 
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JIO 



07-FEB-84 10;58 



SEQ 126 



1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
3 718 
1719 
1720 
1.721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 



032706 000010 



032710 
032710 
032712 
032714 
032716 
032720 

032722 
032726 



032746 
032746 
032752 
032756 



032762 
033040 
033113 
033212 
033305 
033403 
033501 
033570 
033661 
033750 
034033 



034062 
034062 
034066 



032 726 ' 

000000 

000016 

000000 

000000 

000000 000000 



000000 037140 

000002 000001 

000004 100100 
032762' 



116 
127 
127 
127 
127 
127 
103 
105 
125 
111 
127 



102 
122 
122 
122 
122 
122 
157 
170 
156 
156 
162 



101 
111 
111 
111 
111 
111 
156 
160 
145 
143 
151 



. WORD 8 . 



T7DATAj 








.WORD 


T7BFR 




.WORD 







.WORD 


14. 




.WORD 





T7SP: 


.WORD 







.WORD 


0,0 


T7BFR? 


.BLKW 


8. 



I STARTING VALUE OF BLOCK SIZE 

I CHARACTERISTICS DATA BLOCK 
I ADDRESS OF MESSAGE BUFFER 

jLENGTH OF MES r . <SE BUFFER 

tEXTFEA EXTRA WORD 

{SPACE 

{MESSAGE BUFFER 



TEST DATA FOR SUBTEST TWO 
DATA HAS FORMAT? 



1ST WORD 
2ND WORD 



OFFSET TO TEST WORD IN PACKET 
BITS TO SET FOR TEST 



T72DATA: 



T72D0NE> 



.WORD 0,BIT5!BIT6!3IT9JBIT10!BIT11!BIT12!BIT13 
.WORD 2.BIT0 
.WORD 4.BIT6JBIU5 



lLOCAL TEXT MESSAGES FOR TEST 



T72N6A: 

T7N6A: 

T72REJ: 

T73REJ; 

T74REJ: 

T75REJ: 

T7SSR; 

T7NINT: 

T7INT: 

T7TSBA: 

TST7ID; 



I * 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
. EVEN 



NBA Not Set On Rejected WRITE 
WRTTF CHARACTERISTICS Command 

CHARACTERISTICS 

CHARACTERISTICS 

CHARACTERISTICS 

CHARACTERISTICS 



WRITE 

WRITE 

WRITE 

WRITE 

Contents 

Expected 



CHARACTERISTICS' 
Not Accepted' 
Not Rejected With Non-Zero Unused Fields' 
Not Rejected With Invalid Data Count* 
Not Rejected With Invalid Block Address' 
Not Rejected With Invalid Buffer Length' 
of TSSR Incorrect After WRITE CHARACTERISTICS' 
Interrupt Not Received On WRITE CHARACTERISTICS' 



Unexpected Interrupt Received On WRITE CHARACTERISTICS 
Incorrect TSBA Address After WRITE CHARACTERISTICS' 
Write Characteristics' 



{ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUfcS 



; 



T7RESTj 



012701 032700' 



SAVREG 
MOV 



0T7PACKET.R1 



j SAVE THE REGISTERS 
j START OF THE PACKET 



K10 



TSV5A - HARDWARF. TESTS MACRO M1113 
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07-FEB-84 10:58 



SEQ 12/ 



1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 



1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 

1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1705 
1786 
1787 
1788 
178° 
1790 
1791 

1796 

1797 
1798 
1799 
1800 
1801 



034072 
034076 
034102 
034104 
034110 
034114 
034116 
034122 
034124 
034126 
034130 
034130 
034130 



034132 
034132 
034132 
034136 
034142 
034150 



012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
005011 
000207 



104401 



100004 
032710' 

000010 
032726 ■ 

000020 



012700 
004737 
012737 



035017 
0U.322 
000024 



002214 



MOV 


0100004 ,(R1)+ 


MOV 


♦T7DATA.CR1)* 


CLR 


CRD* 


MOV 


08..CR1)* 


MOV 


0T7B. r R,CRl)* 


CLR 


CRD* 


MOV 


*16. ,(Rl)f 


CLR 


CRD* 


CLR 


(Rl) 


RTS 


PC 


ENDTST 





{WRITE CHARACTERISTICS WITH ACK 
I ADDRESS OF CHAR DATA BLOCK 
j EXTENDED ADDRESS 
I SIZE OF DATA BLOCK IN BYTES 
I ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 



{RETURN 



L10055i 



TRAP 



C*ETST 



.SBTTL TEST 8: VOLUME CHECK 



THIS TEST VERIFIES THAT THE VOLUME. CHECK (VCK) BIT, A FLAG HELD 
WITHIN THF. M7455 AND APPEARING IN XSTO, IS SET BY INITIALIZE AND 
CLEARED BY EXECUTING A WRITE CHARACTERISTICS COMMAND WITH THE 
CVC BIT SET. IT IS ALSO VERIFIED THAT A WRITE CHARACTERISTICS 
COMMANO WITH THE CVC BIT CLEAR DOES NOT AFFECT IMC STATE OF THE 
VOLUME CHECK BIT. THE ACTUAL FUNCTION OF VOLUME CHECK, THAT OF 
PREVENTING OR ALLOWING A TAPE MOTION COMMAND DEPENOING UPON 
WHETHER VOLUME CHECK IS SET OR CLEAR, IS NOT CHECKED BY THIS 
TEST i THIS FUNCTIONALITY IS CHECKED IN THE INDIVIDUAL TESTS OF 
TAPE MOTION COMMANDS. 

THE TEST PROCEEDS AS FOLLOWS; 

1. THE CONTROLLER IS INITIALIZED BY WRITING INTO THE TSSR. 



2. 



3, 



4. 



5. 



A WRITE CHARACTERISTICS COMMAND IS ISSUED (WITH CVC'O) 
AND XSTO IN THE RETURNED MESSAGE BUFFER IS EXAMINED; 
THE VCK BIT SHOULD BE CLEAR CO). 

THE PREVIOUS STEP IS REPEATED TO VERIFY THAT VCK DOES 
NOT CHANGE (REMAINS AT 0), 

A WRITE CHARACTERISTICS COMMAND IS ISSUED WITH CVC-1 
AND THE VCK BIT IN XSTO IN THE MESSAGE BUFFER IS 
EXAMINED: THE VCK BIT SHOULD BE CLEAR CO). 



A WRI1E CHARACTERISTICS 
AND THE VCK HIT IN XSTO 
EXAMINED; THE VCK BIT 



COMMAND IS ISSUED WITH CVC*0 
IN THE MESSAGE BUFFER IS 
CLEAR (0). 



T8LOOP5 



034150 012704 034540' 



BGNTST 

MOV 
JSR 

MOV 



MOV 



♦TST8ID.R0 

PC.TSTSETUP 
*20, ,LOOPCNT 



0T6PACKET.R4 



T8: : 
{ASCII MESSAGE TO IDENTIFY TEST 
{DO INITIAL TEST SETUP 
{PERFORM 20 ITERATION? 



{PACKET FOR WRITE CHARACTERISTICS 



TSV5A - HARDWARE TESTS 
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MACRO M1113 07-FEB-84 10:58 



LIO 



SEQ 128 



1802 
1803 
1807 
1808 



1809 
1810 
1811 
1812 
1813 
1817 



1818 
1819 



1820 
1821 
1822 
1826 
1827 



1828 

1829 
1830 
1831 
1832 
1836 



1837 
1838 



1839 
1840 
1844 
1845 



1846 



034154 

034160 

034162 

034164 

034164 

034166 

034170 

034172 

034174 

034200 

034204 

034210 

034212 

034214 

034214 

034216 

034220 

034222 

034224 

034224 

034226 

034226 

034230 

034232 

034236 

034244 

034246 

034252 

034252 

034254 

034256 

034260 

034262 

034262 

034264 

034270 

034274 

034276 

034300 

034300 

034302 

034304 

034306 

034310 

034310 104406 

034312 

034312 

034314 

034316 

034324 

034326 

034332 

034332 

034334 

034336 

034340 

034342 



004737 015604 

103405 

010001 



104455 
001441 
003644 
011644 
042714 
010465 
004737 
103405 
010001 



5$: 



040000 
000000 
016146' 



10$; 



104455 
001442 
034730' 
011656' 

1044C6 

104410 
000604 
012702 034562 



15$: 



03276? 000020 000006 

001406 

016501 000002 

104456 
001443 
034637' 
011720' 

104406 

010465 000000 

004737 016146' 

103405 

010001 

104455 
001444 
034/30' 
011656' 



104410 

000520 

032762 000020 000006 

001406 

016501 000002 

104456 
001445 
034637' 
011720' 



20$: 



25$: 



30$: 



JSR 


PC.SOFINIT 


jDO SOFT INIT OF CONTROLLER 




DCS 


10$ 


jBR IF SOFT INIT - OK 




MOV 


R0.R1 


jSAVE CONTENTS OF TSSR 




ERRDF 


ERRNO,SFIERR,SFIMSG 


1 DEVICE FATAL ERROR DURING INIT 








TRAP 


C$ERDF 






.WORD 


801 






.WORD 


SFIERR 






,WORO 


SFIMSG 


BIC 


4fiIT14,CR4) 


5 CLEAR THE CVC BIT 




MOV 


R4.TSDBCR5) 


{SET THE PACKET ADDRESS FOR WRITE CHAR 


JSR 


PC.CHKTSSR 


{WAIT FOR SSR TO SET 




BCS 


15$ 


jBR IF CARRY SET (GOOD RETURN) 




MOV 


R0.R1 


jSAVc CONTENTS OF TSSR 




ERRDF 


ERRN0,T8SSR»PKTSSR 


iDEVICE FATAL SSR FAILED TO SET 








TRAP 


C$E> ">F 






.WORD 


802 






.WORD 


T8SSR 






.WORD 


PKTSSR 


CKLOOP 




{LOOP ON ERROR. IF FLAG SET 








TRAP 


C$CLP1 


ESCAPE 


TST 


{EXIT IF FATAL ERROR 








TRAP 


C$ESCAPE 






.WORD 


L10064-. 


MOV 


OT8BFR.R2 


{ADDRESS OF THE MESSAGE BUFFER 




BIT 


$XS0VCK,XSr0CR2) 


jIS VOLUME CHECK SET IN XSTO ? 




BEQ 


20$ 


lOKAY IF VOLUME CHECK IS CLEAR 




MOV 


TSSRCR5),R1 


{CONTENTS OF TSSR FOR ERROR REPORT 


ERRHRD 


ERRNO^TBNVCK^PKTMES 


{VOLUME CHECK NOT CLEAR 








TRAP 


CIERHRD 






.WORD 


803 






.WORD 


T8NVCK 






.WORD 


PKTME5 


CKLOOP 




{LOOP ON ERROR ? 








TRAP 


C$CLP1 


MOV 


R4.TSDBCR5) 


{SET THE PACKET ADDRESS FOR WRITE CHAR 


JSR 


PC.CKKTSSR 


{WAIT FOR SSR TO 5FT 




BCS 


25$ 


{BR IF CARRY SET (GOOD RETURN) 




MOV 


R0.R1 


{SAVE CONTENTS OF TSSR 




ERRDF 


ERRN0.T8SSR, PKTSSR 


{DEVICE FATAL SSR FAILED TO SET 








TRAP 


CiERDF 






.WORD 


804 






.WORD 


T8SSR 






.WORD 


PKTSSR 


CKLOOP 




{LOOP ON ERROR, IF FLAG SET 








TRAP 


C$CLP1 


ESCAPE 


TST 


{EXI T IF FAT/\L ERROR 








TRAP 


CCESCAPE 






.WORD 


1.10064 -, 


BIT 


»XS0VCK,XST0(R2) 


iIS VOLUME CHECK SET IN XSTO ? 




BEQ 


30 i 


lOKAY IF VOLUME CHECK IS SET 




MOV 


TSSR(R5;.R1 


{CONTENTS OF TSSR FOR ERROR REPORT 


ERRHRD 


ERRN0.T8NVCK.PKTMES 


{VOLUME CHECK NOT SET 








TRAP 


C$ERHRD 






.WORD 


805 






.WORD 


T8NVCK 






.WORD 


PKTMES 



CKLOOP 



{LOOP ON ERROR ? 



M10 



TSV5A 


HARDWARE TESTS 


MACRO V 


TEST 8 


VOLUME 


CHECK 






054342 


104406 




1847 


034344 


052714 


040000 


1848 


034350 


010465 


000000 


1849 


034354 


004 737 


016146' 


1850 


034360 


103405 




1851 


034362 


010001 




1855 


034364 








034364 


104455 






034366 


001446 






034370 


034730' 






034372 


011656' 




1856 


034374 








034374 


104406 




1857 


034376 








034376 


104410 






034400 


000434 




.1658 


034402 


032762 


C00020 


1859 


034410 


001406 




1863 


034412 


016501 


000002 


1864 


054416 








034416 


104456 






034420 


001447 






034422 


034602' 






034 , 'i24 


011720' 




1865 


034426 








C34426 


104406 




1866 


034430 


042714 


040000 


1867 


034434 


010465 


000000 


1868 


034440 


004737 


016146' 


1869 


034444 


103405 




1870 


C34446 


010001. 




1874 


034450 








034450 


104455 






034452 


001450 






034454 


034730' 






034456 


011656' 




1875 


034460 








034460 


104406 




1876 


034462 








051462 


104410 






034464 


000350 




1877 


C34466 


032762 


000020 


1878 


034474 


001406 




1882 


034476 


016501 


000002 


1883 


034502 








034502 


104456 






0345C4 


001451 






034506 


034602' 






034510 


011720* 




1884 


034512 








034512 


104406 




1885 


034514 


004 73 7 


016270' 


1886 


034520 


103002 




1887 


034522 


00013? 


034150* 


1688 


034526 








034526 


104*432 






034530 


000304 





M1113 
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BTS 


<«IT14,(R4) 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


BCS 


35$ 


MOV 


R0.R1 


ERRDF 


ERRNQ.T8SSR, PKTSSR 



35$: 



000006 



40$ 



CKLOOP 
ESCAPE 



BIT 
BEQ 
MOV 
ERRHRD 



CKLOOP 



45$ 



000006 



50$ 
60$ 

62$ 



CKLOOP 
ESCAPE 



BIT 
BEQ 
MOV 
ERRHRD 



CKLOOP 

JSR 
BCC 
JMP 
EXIT 



TST 



*XS0VCK,XST0(R2) 
40$ 

TSSR(R5),R1 
ERRN0.T8VCK, PKTMES 



BIC 


*BIT14,(R4) 


• 


MOV 


R4,TSDB(R5) 


J 


JSR 


PCCHKTSSR 


J 


BCS 


45$ 


• 


MOV 


R0,R1 


• 


ERRDF 


ERRN0.T8SSR, PKTSSR 


I 



TST 



«XS0VCK,XST0(Rc') 
50$ 

YSSR(R5),R1 
ERRN0.T8VCK, PKTMES 



PC.TSTLOOP 
62$ 

T8L00P 
TST 



SEQ 129 



TRAP C$CLP1 

» SET THE CVC BIT 

{SET THE PACKET ADDRESS FOR WRITE CHAR 

{WAIT FOR SSP. TO SET 

tBR IF CARRY SET (GOOD RETURN) 

j SAVE CONTENTS OF TSSR 

j DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
. WORD 606 
.WORD T8SSR 
.WORD PKTSSR 

j LOOP ON ERROR, IF FLAG SET 

THAP C$CLP1 

{EXIT IF FATAL ERROR 

TRAP C$ESCAPE 
.WORD L10064-, 

lIS VOLUME CHECK CLEAR IN XSTO ? 

;OKAY IF VOLUME CHECK IS CLEARED 

{CONTENTS OF TSSR FOR ERROR REFORT 

{VOLUME CHECK NOT CLEARED 

TRAP C$ERHRD 
.WORD 807 
.WORD T8VCK 
.WORD PKTMES 

{LOOP ON ERROR ? 

TRAP C$CLP1 
CLEAR THE CVC BIT 

SET THE PACKET ADDRESS FOR WRITE CHAR 
UAIT FOR SSR TO SET 
BR IF CARRY SET (GOOD RETURN) 
SAVE CONTENTS OF TSSR 
DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
.WORD 808 
.WORD T8SSR 
.WORD PKTSSR 

{LOOP ON ERROR, IF FlAG SET 

TRAP C$CLP1 

{EXIT IF FATAL ERROR 

TRAP C$c^CAPE 
.WORD L10064-. 

{IS VOLUME CHECK CLEAR IN XSTO ? 
OKAY IF VOLUME CHECK TS CLEARED 

I CONTENTS OF TSSR FOR ERROR REPORT 

{VOLUME CHECK NOT CLEARED 

TRAP C$ERHRD 
.WORD 809 
.WORD T8VCK 
.WORD PKTMES 

il.OOP ON ERROR ? 

TRAP C$CLP1 

{SHOULD WE DO ITERATIONS ? 

{BRANCH IF NOT 

{LOOP UNTIL COUNT EXPIRED 

{ALL DONE THIS TEST 

TRAP CUXIT 
.WORD L10064-. 
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TEST 3 j VOLUME CHECK 



NIO 



SEQ 130 



1889 

1,90 

1891 
1892 
1893 
1895 
1897 
1898 
1890 
19(K 

r?oi 

1902 
1907 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 



1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 

194 7 
194U 



034532 
034540 
034540 
034542 
034544 
034546 

034550 
034550 
034552 
034554 
034556 

03456 2 



034602 
03463 7 
034730 
035017 

035034 
035034 
035034 



035036 
035036 
035036 
035042 



LOCAL STORAGE FOR THIS TEST 



.BLKB 10~<. -TSV267> 



100004 
034550 
000000 
000010 



034562' 

000000 

000020 

000000 000000 



T8PACKET: 



T8DATA* 



.WORD 
.WORD 
.WORD 
.WORD 



. WORD 
.WORD 
.WORD 
.WORD 



100004 

T8DATA 



10 



T8BFR 


16. 
0,0 



T8BFR: ,BLKW 8. 



LOCAL TEXT MESSAGES FOR TEST 



{COMMAND PACKET FOR TEST 
{WRITE CHARACTERISTICS COMMAND 
j ADDRESS OF CHARACTERISTICS BLOCK 

{STARTING VALUE OF COUNTER 

{CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 



{MESSAGE BUFFER 



126 
126 
103 
126 



104401 



157 

IbT* 
157 



154 T8VCK: .ASCIZ 'Volume Check Bit Not Cleared' 



154 
156 
154 



T8NVCK 
T8SSR: 
TST8ID: 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

ENDTST 



Volume Check Bit 
Contents of TSSR 
Volume Check' 



CVCIO Not 
Incorrect 



Clear 
After 



After 
Write 



Initialize (XSTO)' 
Charoctcrist ics' 



L10064 



TRAP 



C$ETST 



.SBTTL TEST 9: COMPLETION INTERRUPT 



THIS TEST VERIFIES THAT AN INTERRUPT IS GENERATED AT THE 
COMPLETION OF THE WRITE CHARACTERISTICS COMMAND IF THE INTERRUPT 
LNABLE (IE) BIT IN THE COMMAND HEADER WORD IS SET. THIS TEST 
CHECKS THE FUNCTIONING OF THE INTERRUPT LOGIC AND BASIC 
PROCESSING OF THE IE BIT. 

THE SEQUENCES OF TEST 7 ARE REPEATED, EXCEPT THAT THE INTERRUPT 
SERVICE ROUTINE IS SET UP TO EXPECT INTERRUPTS AND EACH WRITE 
CHARACTERISTICS COMMAND IS ISSUED WITH THE IE BIT SET CD. IT 
IS VERIFIED, WHERE APPROPRIATE, THAT THE IE STATUS BIT IN XSTO 
OF ANY MESSAGE PACKET IS SET AND THAT A COMPLETION INTERRUPT IS 
GENERATED. FINALLY, A SEQUENCE OF TWO COMMANDS ARE ISSUED, THE 
FIRST WITH IE-1 AND THE SECOND WITH IE-O. IT IS VERIFIED THAT 
NO INTERRUPT IS GENERATED AFTER THE SECOND COMMAND AND THAT THE 
IE BIT IN XSTO IS 0. 



005037 
012700 



002224 
040061 



BGNTS1 

C'.R 

MOV 



EXTFEA 
#TST9ID,R0 



T9; : 
.•CLEAR EXTENDED FEATURES SWITCH 
?ASCII MESSAGE TO IDENTIFY TEST 



TSV5A - HARDWARE TESTS MACRO M1113 
TEST 9: COMPLETION INTERRUPT 



07~FEB~84 10*58 



Bll 



SEQ 131 



1949 035046 


0047;*" 


016322' 


1950 035052 


012737 


000024 002214 


1951 035060 






1952 035060 






035060 






035060 


104402 




1953 






1954 035062 


004737 


040106' 


1955 035066 






035066 


012700 


000000 


035072 


104441 




1956 035074 


012703 


002762' 


1957 035100 


012704 


037010' 


1958 035104 


012764 


000010 000006 


1959 035112 






1960 035112 






035112 


104404 




1961 






1962 035114 


0O4737 


015604' 


1963 035120 


103405 




1967 035122 


oicooi 




1968 035124 






035124 


104455 




035126 


001605 




035130 


003644* 




035132 


011644' 




1969 035134 


005037 


002220' 


1970 035140 


005037 


002222' 


1971 035144 


010465 


000000 


1972 035150 


004737 


016146' 


1973 035154 


103407 




1974 035156 


010001 




1978 035160 






035160 


104455 




035162 


001606 




035164 


037527' 




035166 


11656 ' 




1979 035170 


005237 


002220' 


1980 035174 






035174 


104406 




1981 035176 






035176 


104410 




035200 


000056 




1982 035202 


005737 


002222' 


1983 035206 


001004 




1937 035210 






035210 


104456 




035212 


001607 




035214 


037616' 




035216 


011656' 




1*68 035220 


016501 


000002 


1969 035224 


012702 


000200 


1990 035230 


032701 


000100 


1991 035234 


001402 




1992 035236 


052702 


000100 


1993 035242 


020201 




1994 035244 


001404 





T9L00P: 



5${ 



JSR 
MOV 

BGNSUB 



JSR 

SETPRI 



MOV 
MOV 
MOV 

BGNSEG 



kC,TSTSF.TUP 
020, .LOOPCNT 



i DO INITIAL 
jPERFORfi 20 



TEST SETUP 
ITERATIONS 



101} 



15$: 



22t? 



25'i 



PC.T9REST 
OPRIOO 



*TSTBLK*10.,R3 

0T9PACKET.R4 

08..PKBCNTCR4) 



\//////////// BEGIN SUBTEST //////////// 

T9.1J 

TRAP CIB5U3 

jSET PACKET TO INITIAL VALUES 
lLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV *PRIOO,R0 
TRAP CISPRI 
iSTART Of TEST DATA 
tGFT THE ADDRESS OF C0f*1AN0 PACKET 
iSTART WITH MINIMUM ALLOWABLE VALUE 

!>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP CIBSEG 



JSR 


PC.SOFINIT 


lOO SOFT INIT OF CONTROLLER 




BCS 


10$ 


|BR IF SOFT INIT ■ OK 




MOV 


R0.R1 


iSAVE CONTENTS OF TSSR 




ERRDF 


ERRNO.SFIERR.SFIMSG 


jDEVlCE FATAL ERROR DURING INIT 








TRAP 


CiERDF 






.WORD 


901 






.WORD 


SFIERR 






.WORD 


SFIHSG 


CLR 


FATFLG 


iCLEAR FATAL ERROR FLAG 




CLR 


INTRECV 


iCLEAR INTERRUPT RECEIVED FLAG 




MOV 


R4 $ TSD6CR5) 


jSET THE PACKET ADDRESS 




JSR 


PC.CHKTSSR 


,WAIT FOR SSR TO SET 




BCS 


151 


iBR IF CARRY SET (GOOO RETURN) 




MOV 


R0.R1 


iSAVE CONTENTS OF TSSR 




ERRDF 


ERRN0.T9SSR.PKTSSR 


iDEVICE FATAL SSR FAILED TO SET 








TRAP 


CIEROF 






.WORD 


902 






.WORD 


Ts'jSR 






.WORD 


PKTSSR 


INC 


FATFLG 


jSET FATAL ERROR FLAG 




CKLOOP 




lLOOP ON ERROR, IF FLAG SET 








TRAP 


CICIPI 


ESCAPE 


SEG 


iBY-PASS SUBTEST IF FATAL ERROR 








TRAP 


("•ESCAPE 






.WORD 


lOOOOt-. 


TST 


INTRECV 


iDIO AN INTERRUPT OCCUR ? 




BNE 


221 


i BRANCH IF YES 




ERRHRD 


ERRh«0 # T9NINT, PKTSSR 










TRAP 


CIERHRD 






.WORD 


903 






.WORD 


T9NINT 






.WORD 


PKTSSR 



MOV TSSRCR5),R1 

MOV #SSR,R2 

BIT •0FL.R1 

B*Q 25$ 

BIS *0TL.R2 

CMP R2, Rl 

B£Q 30$ 



iGET THE CONTENTS OF TSSR 
jEXPECTEO CONTENTS OF TSSR 
:1S OFF-LINE BIT SET ? 
iBHAhiCM \F NOV OFT L TNE 
jScT OM LINE IN EXACTED DATA 
iDOES EXPECTED MATCH RECEIVED 
lOKAt IF MATCH 



t 



TSV5A 
TEST 



9: 



HARDWARE TESTS 
COMPLETION INTE 



ms 



en 



M1113 07-FEB-84 10}58 



1998 



1999 
2000 



2001 
2002 
2003 
2004 
2005 
2006 
2007 



2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
20 16 
2017 
2018 
2019 
2020 
2021 
202? 
2023 
2024 
2025 
2026 



202 7 
2028 



2029 
2030 
2031 
2032 
2033 

2034 
2035 
2036 
2O40 
2041 



035246 
035246 
0352S0 
035252 
035254 
035256 
035256 
035256 
035256 

035260 
035264 
035270 
033272 

035276 
035276 
035276 

035300 
035304 
035306 
035312 
035320 
035322 
035326 



035326 
035326 
035326 

035320 
0?5330 
035334 
035336 
035342 
035346 

035352 
035352 

035334 
035360 
o35362 
035364 
035364 
055366 
035370 



104456 
001610 
037066 
011656" 



104405 



104402 



012700 
104441 
012703 
012704 
004 737 



104404 

00473V 
103405 
010001 

104455 
001611 
003644 



ERRHRD ERRN0.T9NBA.PKTSSK 



j NBA NOT ZERO 



30$ 



TRAP 
.WORD 
.WORD 
.WORD 



SEQ 132 



CIERHRD 
904 
T9NBA 
PKTSSR 



ENDSEG 



012364 000006 

020327 003060 1 
103002 

000137 035112 



104403 

005737 002220* 

001402 

004737 017014' 

033727 037044' 000200 

001402 

005237 002224' 



MOV 


(R3)*,PKBCNT(R4) 


CMP 


R3.0TBLEND 


BHIS 


55$ 


JMP 


5$ 



55$: 



60$: 
70$: 



ENOSUB 



TST 

8EQ 
JSR 
BIT 
BEQ 
INC 



FATFLG 

60$ 

PC.CKDROP 

T9eFR»12.*BIT7 

70$ 
EXTFEA 



I <<<<<<<<<< <<< END SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C$ESEG 

l SET THE TEST WORD 
lHAS ALL DATA BEEN TESTED ? 
iBIANCH IF ALL DATA DONE 
iBRANCH TILL BACK TO ZERO 

l\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L 10066i 

TRAP C$ESU6 

lANY FATAL ERRORS ? 

j BRANCH If NOT 

I TRY TO DROP THE INIT 

lEXTENOEO FEATURES SET? 

iBR IF NO 

I SET EXT FEATURE FLAG 



TEST 9, SUBTEST 2 

CHECK THAT UNUSED BITS BEING SET CAUSES 
WRITE CHARACTERISTICS COMflANO TO BE REJECTED 



000000 

037052 
037010 
040106 



015604 



BGNSUB 



SETPRI OPRIOO 



5*1 



MOV 
MOV 
JSR 

BGNSEG 



♦T92DATA.R3 
♦ T9PACKE T,R4 
PC.T9REST 



JSR 


PC.SOFINIT 


BCS 


10$ 


MOV 


R0.R1 


URRDF" 


ERRNO t SFIERR«SFIMSG 



\//////////// BEGIN SOdTES .'/////////// 

T9 2: 

TRAP CtBSlJB 

jLOWER PRIORITY TO ALLOW INTERNUM? 

MOV *;WCO.R0 

jSIART OF TEST DATA F'J* SUBTEST 
j GET THE ADDRESS OF COMMAND PACKET 
iRESTORE PACKET TO STAPTtNG VALUES 

, >>>v>>>>>>>^ QEGIN ^"CiHGNT v >> »>>*»».>> 

WAP CUJSEG 

lOO SOFT INIT Of CONTROLLER 

iBR IF SOFT INIT « OK 

iSAVE CONTENTS OF 1 $SR 

t DEVICE FATAL fcRRQft DURING INIT 

TR»>P C*Kftt>F 

, ucmo <k* 

.UUltt SFX&Rft 



im^L GL °!§^ R ^ ANoWo^AfoR^PB^ l °' 58 



C7 



SEQ 080 



2742 
2743 

2744 
2745 



2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
277ft 

2779 

2780 



020156 
020160 
020164 
020166 
020170 
020170 
020174 
020200 
020202 
020204 
020210 
020212 
020214 
020262 
020267 



2781 
2782 
2783 
276* 
£735 



020320 
020320 
020324 
020324 
020326 
020326 
020330 
020330 
020334 
020340 
020342 
020344 
020350 
020352 

0EQ354 



103352 
013700 
020001 
101411 

012746 

012746 

010600 

104417 

062706 

000735 

000207 

045 

045 

105 



020316 000000 



020316* 



020?14« 
000001 



000004 



116 
116 

156 



045 
045 
164 



5$: 

HENERR; 
SELASCi 

MENASC: 

MENRES: 



BCC 

MOV 

CMP 

BLOS 

PRINTF 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

RTS 

.ASCIZ 

.ASCIZ 

, ASCIZ 

.EVEN 



1$ 

MENKES. RO 

R0.R1 

5$ 

OMENERR 

OMENERR, -CSP) 

•l.-CSP) 

SP.RO 

ClPNTF 

♦4,SP 

II 

PC 

'*N*A *** Menu 

'#N#T' 



»GET THE OPERATOR'S REPLY 
I COMPARE TO MAXIMUM ALLOWED 
I BRANCH IF OK 

I DISPLAY ERROR MESSAGE 



iRETRY 

I RETURN TO CALLER 
Selection Too Large **+• 



'Enter Menu Selection: 
.WORD 



♦SBTTL CMKMAN - CHECK MANUAL INTERVENTION LEGALITY 

ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 
INPUTS 



NONE. 



OUTPUT; 



CARRY 
1 



MANUAL INTERVENTION NOT ALLOWED 
MANUAL INTERVENTION IS OK 



SIDE EFFECTS: 



A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
ALLOWED. 



CMKMAN: 



104450 
103411 

012746 020354 

012746 000001 

010600 

104417 

062706 000004 

000241 

0Q0207 



045 



116 



II: 

045 NOMANt 



SAVREG 




iSAVE THE REGISTERS 


MANUAL 




jSEE IF MANUAL INTERVENTIO 


TRAP 


CIMANI 




OCOHPLETE 11 


1 BRANCH IF ALLOWED 


BCS 


11 




PRINTF 


ONOMAN 


j PRINT THE WARNING MESSAGE 


MOV 


♦NOMAN.-CSP) 




MOV 


•l.-(SP) 




MOV 


SP.RO 




TRAP 


CIPNTF 




AOD 


*4,SP 




CLC 




I CLEAR CARRY FOR ERROR 


RTS 


PC 


j RE TURN 


.ASCIZ 


'*N*A *+* Manuel Intervention ngt Allowed 


*#v«n 







Test Aborted *** 



TSV5A - HARDUARE TESTS MACRO H1113 
TEST 9; COMPLETION INTERRUPT 
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SEQ 135 





035714 


104456 






035716 


001620 






035720 


037240' 






035722 


011656' 




2137 


035724 






2138 


035724 
035724 








035724 


104405 




2159 








2140 


035726 


005203 




2141 


035730 


020327 


000006 


2142 


035734 


002002 




3143 


035736 


000137 


035554' 


2144 








2145 


035742 
035742 








035742 


104403 




2146 








2147 








2148 








2149 








2150 








2151 








2152 








2153 








2154 








2155 








2156 


035744 
035744 








035744 


104402 




2157 








2158 


035746 








035746 


012700 


000000 




035752 


104441 




2159 


035754 


012703 


037052' 


2100 


035760 


012704 


037010' 


2161 


035764 


004737 


040106' 


2162 








2163 








2164 


035770 


004737 


015604' 


2165 


035774 


103405 




2169 


035776 


010001 




2170 


036000 








036000 


104455 






036002 


001621 






036004 


003644' 






036006 


011644' 




2171 


036010 


005037 


0C2222' 


2172 


036014 


052737 


000001 037020' 


2173 


036022 


010465 


000000 


2174 


036026 


004737 


016060' 


2175 


036032 


103405 




2176 


036034 


010001 




2180 


036036 








036036 


104455 






036040 


001622 






036042 


037527' 





30$: 



59$: 



i ♦ 



ENDSEG 



INC R3 

CMP R3,to 

BGF. 59$ 

JMP 5$ 

ENDSUB 



TRAP C$ERHRO 

.WORD 912 

.WORD T93REJ 

.WORD PKTSSR 

j<<<<<<<<<<<<< EMD SEGMENT <<<<<<<<<<<<< 

10000$ j 

TRAP C$ESEG 

jNEXT BYTE COUNT 

j TESTED ALL INVALID ? 

i BRANCH IF TEST DONE 

j BRANCH TILL BACK TO ZERO 

j\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L10070: 

TRAP C$ESUB 



(TEST 9. SUBTEST 4 

l 

: SUBTEST TO VERIFY THAT A WRITE CHARACTERISTICS COMMAND IS 

j REJECTED IF AN ILLEGAL DATA BLOCK ADDRESS IS ISSUED. 

i 

J - 



5$: 



BGNSUB 



SETPHI $PRIOO 



MOV *K92DATA,R3 

MOV «T9PACKET,R4 

JSR PC.T9REST 



JSR PC.SOFINIT 

BCS 10$ 

MOV R0.R1 

ERRDF ERRNO f SFIERR , SF IMSG 



10$: 



CLR 


INTRECV 


BIS 


01.T9DATA 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


BCS 


15$ 


MOV 


R0.R1 


ERRDF 


ERRN0.T9SSR, PKTSSR 



i //////////// BEGIN SUBTEST //////////// 

T9.4: 

TRAP C$BSUB 

j LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV $PRI00,R0 
TRAP C$SPRI 
t START Of TEST DATA FOR SUBTEST 
jGET THE ADDHESS OF COMMANO PACKET 
jRESTORE PACKET TO STARTING VALUES 



jDO SOFT INIT OF CONTROLLER 

iBR IF SOFT INIT - OK 

j SAVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP CfERDF 
.WORD 913 
.WORD SFIERR 
.WORD SFIMSG 

j CLEAR INTERRUPT RECEIVED FLAG 

,MAKE ADDRESS ODD 

j SET THE PACKET ADDRESS 

iWAIT FOR SSR TO SET 

j BR IF CARRY SET CGOOO RETURN) 

j SAVE CONTENTS OF TSSR 

jDEVICE FATAL bSR FAILED TO SET 

TRAP C$ERDF 
.WORD 914 
.WORD T9SSR 



Gil 
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036044 


011656' 




2181 


036046 








036046 


104406 




2182 


036050 








036050 


104410 






036052 


000056 




2183 


036054 


005737 


002222 


2184 


036060 


001004 




2188 


036062 








036062 


104456 






036064 


001623 






036066 


037616' 






036070 


011656' 




2189 


03607? 


016501 


000002 


2190 


0360 76 


012702 


102206 


2191 


036102 


032701 


000100 


2192 


036106 


001402 




2193 


036110 


052702 


000X00 


2194 


036114 


020201 




2195 


036116 


001404 




2199 


036120 








036120 


104456 






036x22 


001624 






036124 


037333' 






036126 


011656' 




2200 


036130 






2201 








2202 


036130 
03f 1 30 








0361ow 


104403 




2203 








2204 








2205 








2206 








2207 








2208 








2209 








2210 








2211 








2212 








2213 








2214 


03613? 
036132 








036132 


104402 




2215 








2216 


036134 








036134 


012700 


000000 




036140 


104441 




2217 


036142 


012703 


000001 


2218 


036146 


012704 


037010 


2219 


036152 


004 737 


040106 


2220 








2221 


036156 








036156 


104404 




2222 








2223 


036160 


004 737 


015604 


2224 


036164 


103405 
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15*: 



22*; 



25*: 



30*: 



0:56 






SEQ 136 






.WORD 


PKTSSR 


CKLOOP 




{LOOP ON ERROR. IF FLAG SET 








TRAP 


C*CLP1 


ESCAPE 


SUB 


jBY-PASS SUBTEST IF FATAL ERROR 








TRAP 


C*ESCAPE 






.WORD 


L10071-. 


TST 


INTRECV 


{DID AN INTERRUPT OCCUR ? 




BNE 


22* 


{BRANCH IF YES 




ERRHRD 


ERRN0.T9NINT, PKTSSR 










TRAP 


CiERHRD 






.WORD 


915 






.WORD 


T9NINT 






.WORD 


PKTSSR 


MOV 


TSSR(R5),R1 


{GET THE CONTENTS OF TSSR 




MOV 


#SC!SSRJTSREJ!N8A,R2 


jEXPECTED CONTENTS OF TSSR 




BIT 


00FL.R1 


1 IS OFF-LINE BIT SET ? 




BEQ 


25* 


I BRANCH IF NOT OFF-LINE 




BIS 


♦0FL.R2 


{SET OFF-LINE IN EXPECTED DATA 




CMP 


R2.R1 


{DOES EXPECTED MATCH RECEIVFD ? 




BEQ 


30* 


j OKAY IF MATCH 




ERRHRD 


ERRN0.T94REJ, PKTSSR 


iCOMMANO NOT REJECTED 








TRAP 


CSERHRD 






.WORD 


916 






.WORD 


T94REJ 






.WORD 


PKTSSR 



EN0SU8 



iWNWWWWW END SUBTEST \\\\\\\\\\\\\ 

L1007L: 

TRAP CSESUB 



{TEST 9, SUBTEST 5 

{CHECK THAT WRITE CHARACTERISTICS COMMAND IS REJECTED IF THE 
{MESSAGE BUFFER LENGTH SPECIFIES AN INVALID COUNT (LESS THAN 14) 
t 
J - 



BGNSUB 



SETPRI 4PRI00 



5* 



MOV 
MOV 
JSR 

BGNSEG 



JSR 
BCS 



•1.R3 

*T9PACKET,R4 
PC.T9REST 



PC.SOFINIT 
10* 



j//////////// BEGIN SUBTEST //////////// 

T9.5: 

TRAP CSBSUB 

{LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV *PRIOO,R0 

TRAP C*SPRI 

{STARTING BUFFER LENGTH 

{GET THE A0DRE5S OF COMMAND PACKET 

{RESTORE PACKET TO STARTING vAl UES 

!>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>*>>>> 

TRAP CSBSto 

{00 SOFT INIT OF CONTROLLER 
I BR IF SOFT INIT - OK 
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Hll 



SEQ 137 



2228 
2229 



2230 
2231 
2232 
2233 
2234 
2235 
2239 



2240 
2241 



2242 
2243 
2247 



2248 
2249 
2250 
2251 
2252 
2253 
2254 
2258 



2259 
2260 



2261 
2262 
2263 
2264 
2265 
2266 
2267 



2263 
2269 
2270 



036166 
036170 
036170 
036172 
036174 
036176 
036200 
036204 
036210 
036214 
036220 
036222 
036224 
036224 
036226 
036230 
036232 
036234 
036234 
036236 
036236 

0362*0 
036242 
0362*6 
036250 
036250 
036252 
036254 
036256 
036260 
036264 
036270 
036274 
036276 
036302 
036304 
036306 
036306 
036310 
036312 
036314 
036316 
036316 
036316 
036316 

036320 
036322 
036326 

036330 

036334 
036334 
036334 



010001 

104455 

001625 

003644' 

011644' 

005037 002222' 

010337 037024* 

010465 000000 

004737 016060' 

103405 

010001 

104455 
001626 
037527' 
011656' 

104406 

104410 

000056 

005737 002222' 

001004 

104456 

001627 

037616' 

011656' 

016501 000002 

012702 102206 

032701 000100 

001402 

052702 000100 

020201 

001404 

104456 
001630 
037431' 
011656' 



104405 

005203 

020327 000014 

002002 

000137 036146 



MOV R0.R1 

ERRDF ERRNO , SF IERR , SFIMSG 



10$ 



CLR 


INTRECV 


MOV 


R3,T90ATA*4 


MOV 


R4,TSDBCR5) 


JSR 


PC.WAITF 


BCS 


15* 


MOV 


R0.R1 


ERRDF 


ERRNO, T9SSR, PKTSSR 



15$ 



104403 



22$; 



25$: 



50$} 



ENOSEG 



59$; 



ENDSUB 



iSAVE CON.'cNTS OF TSSR 

jDEVICE FATAL EftROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 

{CLEAR INTERRUPT RECEIVED FLAG 

{INSERT THE BAD MESSAGE LENGTH 

{SET THE PACKET ADDRESS 

(WAIT FOR SSR TO SET 

jBR IF CARRY SET (GOOD RETURN) 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSF. FAILED TO SET 



C$ERDF 
917 

SFIERR 
SFIMSG 









TRAP 


C$ERDF 








.WORD 


918 








.WORD 


T9SSR 








.WORD 


PKTSSR 


CKLOOP 






{LOOP ON ERROR, IF FLAG SET 

TRAP 


CtCLPl 


ESCAPE 


SEG 




{BY -PASS SUBTEST IF FATAL ERROR 

TRAP 
.WORD 


CIESCAPE 
10000$- . 


TST 


INTRECV 




{DID AN INTERRUPT OCCUR ? 




BNE 


22$ 




{BRANCH IF YES 




ERRHRD 


ERRNO, T9NINT 


PKTSSR 


TRAP 
.WORD 
.WORD 
.WORD 


CIERHRD 
919 
T9NINT 
PKTSSR 



MOV 


TSSR(R5),R1 


MOV 


#SC!SSR!TSREJ!N8A,R2 


BIT 


*0FL,R1 


BEQ 


25$ 


BIS 


*K)FL,R2 


CMP 


R2,R1 


BEQ 


30$ 


ERRHRD 


ERRNO, T95RE J, PKTSSR 



{GET THE CONTENTS Of TSSR 
{EXPECTED CONTENTS OF TSSR 
{IS OTF-LINE BIT SET ? 
{BRANCH IF NOT OFF-LINE 
{SET OFF-LINE IN EXPECTED DATA 
{DOES EXPECTED MATCH RECEIVED 
jOKAT IF MATCH 
{COMMAND NOT REJECTED 

TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
920 

T95REJ 
PKTSSR 



INC 


R3 


CMP 


R3,*14 


BGE 


59$ 


JMP 


5$ 



{<<<<<<<<<<<<< ENO SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C$ESEG 

(NEXT BUFFER LENGTH 

{HAVE ALL BAD VALUES BEEN TESTED ? 

{BRANCH IF ALL TESTED 

{BRANCH TIL L BACK TO ZERO 

|\\\\\\\\\\\\\ ENO SUBTEST \\\\\\\\\\\\\ 

L10072: 

TRAP C$ESUB 



{TEST 9, SUBTEST 6 



TSV5A - HARDWARE TESTS MACRO M1U3 
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2271 
22 72 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 



111 



07-FEB-84 10:58 



SEQ 138 



I THIS SUBTEST IS EXECUTED ONLY ir THE EXTENDED 

{FEATURES MODE IS ENABLED CAS DETERMINED BY EXAMINING 

{ XST2 AFTER A PREVIOUS EXECUTION OF WRITE CHARACTERISTICS). 

I IT VERIFIES THAT A FIFTH CHARACTERISTICS DATA WORD IS FETCHED 

i IF THE BYTE COUNT PARAMETER IN THE COMMAND PACKET IS 10 DECIMAL 

;0R GREATER. 



2281 
2282 
2283 
2284 
2285 
2286 



2287 
2288 
2289 

2290 
2291 

2292 
2293 
2294 
2298 
2299 



2300 
2301 
2302 
2303 
2304 
2305 
2309 



2310 
2311 

2312 



2313 
2314 
2318 



036336 
036336 
036336 
036340 
036344 
036346 
036352 

036356 
036356 
036362 
036364 
036370 
036374 
036402 
036402 
036402 

036404 
036410 
036412 
036414 
036414 
036416 
036420 
036422 
036424 
036430 
036434 
056440 
036444 
036446 
036450 
036450 
036452 
036454 
036456 
036460 
036464 
036464 
036466 
036466 
0364 70 
036472 
0364 76 
036500 
036500 
036502 



i 



BGNSUB 



104402 

005737 002224 ' 

001002 

000137 036566 

004737 040106 



012700 000000 
104441 

012703 002762' 

012704 037010 1 
012764 000012 000006 



104404 

004 737 015604 

103405 

010001 



104455 
001631 
003644 
011644 
005037 
005037 
010465 
004737 
103407 
010001 



4$ 



TST 


EXTFEA 


BNE 


41 


JMP 


55$ 


JSR 


PC.T9REST 



SETPRI 4PRI00 



5$: 



MOV 
MOV 
MOV 

BGNSEG 



002220* 
002222* 
000000 
016146* 



10$: 



104455 

001632 

037527* 

011656' 

005237 

104406 



002220 



15$: 



104410 

000056 

00573 7 002222' 

001004 

104456 
001633 



*TSTBLK*10. ,R3 

JT9PACKET.R4 

*10.,PKBCNT(R4) 



JSR 


PC.SOFINIT 


BCS 


101 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.SFIMSti 



j //////////// BEGIN SUBTEST //////////// 

T9.6: 

TRAP CfBSUB 
j IS EXTENDED FEATURES SOFT. SW SET? 
iBR. IF SOFTWARE SWITCH IS SET CON) 
iEXIT SUBTEST 
iSET PACKET TO START-UP VALUES 

{LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV *PRIOO,RO 
TRAP CtSPRI 

iSTART OF TEST DATA 

{GET THE ADDRESS OF COMMAND PACKET 

j START WITH EXTENDED FEATURES VALUE 

l>>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP CJBSEG 



l DO SOFT INIT OF CONTROLLER 
iBR IF SOFT INIT - OK 
{SAVE CONTENTS OF TSSR 
{DEVICE FATAL ERROR DURING INiT 

TRAP 



CLR 


FATFLG 


CLR 


INTRECV 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


BCS 


15 1 


MOV 


R0.R1 


ERRDF 


ERRN0.T9SSR, PKTSSR 



.WORD 
.WORD 
.WORD 

{CLEAR FATAL ERROR < r LAG 

{CLEAR INTERRUPT DECEIVED FLAG 

{SET THE PACKET ADDRESS 

{WAIT FOR SSR i SET 

{BR IF CARRY SET CGOOO RETURN) 

{SAVE CONTENTS OF TSSR 

{DEVICE ^ATAL SSR FAILED TO SET 



CIERDF 
921 

SFIERR 
SFIMSG 









TRAP 


CIERDF 








.WORD 


922 








.WORD 


T9SSR 








.WORD 


PKTSSR 


INC 


FATFLG 




;SET FATAL ERROR FLAG 




CKLOOP 






lLOOP ON ERROR, IF FLAG SET 

TRAP 


CSCLP1 


ESCAPE 


SEG 




{BY -PASS SUBTEST IF FATAL ERROR 

TRAP 
. WORD 


C*ESCAPE 
10000$ - . 


TST 


INTRECV 




iDID AN INTERRUPT OCCUR ? 




BNE 


22% 




j BRANCH IF TES 




ERRHRD 


ERRN0.T9NINT 


.PKTSSR 


TRAP 
,WORD 


C1ERHR0 

9J3 
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Jll 





036504 


037616' 






036506 


011656' 




2319 


036510 


016501 


000002 


2320 


036514 


012702 


000200 


2321 


036520 


032701 


000100 


2322 


036524 


001402 




2323 


036526 


052702 


oooioo 


232* 


036532 


020201 




2325 


036534 


001404 




2329 


036536 








036536 


104456 






036540 


001634 






036542 


037066' 






036544 


011656' 




2330 


036546 






2331 


036546 
036546 








036546 


104405 




2332 








2333 


036550 


012364 


000006 


2334 


036554 


020327 


003060' 


2335 


036560 


103002 




2336 


036562 


000137 


036402' 


2337 








2338 


036566 
036566 








036566 


104403 




2339 








2340 








2341 








2342 








2343 








2344 








2345 








2346 








2347 








2348 








2349 


036570 
036570 








036570 


104402 




2350 








2351 


036572 








036572 


012700 


000000 




036576 


104441 




2352 


036600 


012704 


037010' 


2353 


036604 


004737 


040106' 


2354 


036610 


004737 


015604' 


2355 


036614 


103405 




235? 


036616 


010001 




2360 


036620 








036620 


104455 






036622 


001635 






036624 


003644' 






036626 


011644' 




2361 


036630 


005037 


002222' 


2362 


036634 


052714 


000200 


2363 


036640 


010465 


000000 
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22*} 



25*; 



MOV 


TSSRCR5),R1 


MOV 


0SSR.R2 


BIT 


40FL.R1 


BEQ 


25$ 


BIS 


00FL.R2 


CMP 


R2.R1 


BEQ 


30$ 


ERRHRO 


ERRN0.T9NBA. PKTSSR 



30$; 





SEQ 139 


.WORD 


T9NINT 


.WORD 


PKTSSR 


{GET THE CONTENTS OF TSSR 




j EXPECTED CONTENTS OF TSSR 




iIS OFF-LINE BIT SET ? 




{BRANCH IF NOT OFF-LINE 




j SET OFF-LINE IN EXPECTED DATA 




{DOES EXPECTED MATCH RECEIVED ? 




;OKAY IF MATCH 




j NBA NOT ZERO 




TRAP 


C$ERHRD 


.WORD 


924 


.WO/^D 


T9NBA 


.WORD 


PKTSSR 



ENDSEG 



MOV 


CR3)>,PKBCNTCR4) 


CMP 


R3.0TBLEND 


BHIS 


55$ 


JMP 


5$ 



55$; 



ENDSU6 



!<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10000$; 

TRAP C$ESEG 

j SET THE TEST WORD 
{HAS ALL DATA BEEN TESTED ? 
{BRANCH IF ALL DATA DONE 
{BRANCH TILL BACK TO ZERO 

INWWWWWW ENO SUBTEST \\\\\\\\\\\\\ 

L 10073; 

TRAP C$ESUB 



{TEST 9, SUBTEST 7 

{TEST WRITE CHARACTERISTICS WITH/WITHOUT INTERRUPTS ENABLED 



BGNSUB 



%//////////// BEGIN SUBTEST //////////// 

T9.7; 

TRAP C$BSUB 



10$; 



SETPR1 


tfPRIOO 


{LOWER PRIORITY TO ALLOW INTERRUPTS 






MOV OPRIOO.RO 






TRAP C$SPRI 


MOV 


0T9PACKET.R4 


{GET THE ADDRESS OF COMMAND PACKET 


JSR 


PC. TIRES 1' 


{SET UP A VALID PACKET 


JSR 


PC.SOFINIT 


{DO SOFT INIT OF CONTROLLER ! 


BCS 


10$ 


{BR IF SOFT INIT - OK 


MOV 


R0.R1 


{SAVE CONTENTS OF TSSR ; 


ERRDF 


ERRNO.SFIERR.SFIMSG 


{DEVICE FATAL ERROR DURING INIT 

TRAP C$ERDF 
.WORD 925 
.WOtfD SFIERR 
.WORD SFIMSG 


CLR 


INTRECV 


{CLEAR INTERRUPT RECEIVED FLAG 


BIS 


08IT7.CR4) 


{ENABLE INTERRUPTS 



MOV 



R4,TSDB(R5) 



{SET THE PACKET ADDRESS 
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Kll 



SEQ 140 



2364 
2365 
2366 
2370 



2371 
2372 



2373 
2374 
2378 



2379 

2380 
2381 
2382 
2363 
2384 
2385 
2386 
2390 



2391 
2392 



2393 
2394 
2398 



2399 
2400 



2401 
2402 



2403 
2404 
2405 



036644 
036650 
036652 
036654 
036654 
036656 
036660 
036662 
036664 
036664 
036666 
036666 
036670 
036672 
036676 
036700 
036700 
036702 
036704 
036706 
036710 
036710 

036712 
036716 
036722 
036726 
036732 
036734 
036736 
036736 
036740 
036742 
036744 
036746 
036746 
036750 
036750 
036752 
036754 
036760 
036762 
036762 
036764 
036766 
036770 
036772 
036772 
0367/2 
036772 

036774 
036774 
036776 



004737 016146' 

103405 

010001 

104455 
001636 
037527' 
011656' 

104406 

104410 

000102 

005737 002222' 

001004 

104456 
001637 
037616' 
011656' 

104406 

005037 002222' 

042714 000200 

010465 000000 

004737 016146* 
103405 
010001 

104455 
001640 
037527' 
011656' 

104406 

104410 

000020 

005737 002222' 

001404 

104456 
001641 
037707' 
011656' 



104403 



104432 
001162 



15*; 



JSR 


PC.CHKTSSR 


{WAIT FOR SSR TO SET 


BCS 


15$ 


iBR IF CARRY SET (GOOD RETURN) 


MOV 


R0.R1 


iSAVE CONTENTS OF T5SR 


ERRDF 


ERRN0,T9SSR, PKTSSR 


I DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 


CKLOOP 




lLOOP ON ERROR, IF FLAG SET 

TRAP 


ESCAPE 


sue 


{BY -PASS SUBTEST IF FATAL ERROR 

TRAP 
.WORD 


TST 


INTRECV 


j DID AN INTERRUPT OCCUR ? 


BNE 


22$ 


{BRANCH IF YES 



22$: 



ERRHRD ERRNO , T9NINT , PKTSSR 



CKLOO* 



25$; 



30$: 



i LOOP ON ERROR ? 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERDF 
926 
T9SSR 
PKTSSR 

C$CLP1 

C$ESCAPE 
L 10074 -. 



CiERHRD 
927 
T9NINT 
PKTSSR 

C$CLP1 



CLR 


INTRECV 


BIC 


*BIT7,CR4) 


MOV 


R4,TSD3 , :R5) 


JSR 


PC.CHKTSSR 


BCS 


25$ 


MOV 


R0.R1 


ERRDF 


ERRN0.T9SSR, PKTSSR 



iCLEAR INTERRUPT RECEIVED FLAG 

{DISABLE INTERRUPTS 

l SET THE PACKET ADDRESS 

;WAIT FOR SSR TO SET 

{BR IF CARRY SET (GOOD RETURN) 

I SAVE CONTENTS OF TSSR 

(DEVICE FATAL SSR FAILED TO SET 









TRAP 


CSERDF 








.WORD 


928 








.WORD 


T9SSR 








.WORD 


PKTSSR 


CKLOOP 






{LOOP ON ERROR, IF FLAG SET 

TRAP 


C$CLP1 


ESCAPE 


sue 




jBY PASS SUBTEST IF FATAL ERROR 

TRAP 
.WORD 


C$ESCAPE 
L10074-. 


TST 


INTRECV 




jDID AN INTERRUPT OCCUR ? 




BEQ 


30$ 




{BRANCH IF NOT 




ERRHRD 


ERRN0,T9INT 


, PKTSSR 


TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 
929 
T9INT 
PKTSSR 



ENDSUB 



EXIT TST 



j\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\ \\\\ 

L10074; 

TRAP C5ESUB 



{ALL CONE THIS TEST 



TRAP 
.WORD 



CJEXIT 
L 10065 -, 



{LOCAL STORAGE FOR THIS TEST 



Lll 



TSV5A - HARDWARE TESTS MACRO M1U3 
TEST 9* COMPLETION INTERRUPT 



07-FEB-84 XO:58 



SEQ 141 



2406 
2407 
2409 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
242? 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2*450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
246 5 
2462 
2463 
2464 



037000 
037010 
037010 
037012 
037014 
037016 

037020 
037020 
037022 
037024 
037026 

037032 



037052 
037052 
037056 
037062 



03 7066 
037141 
037240 
037333 
037451 
037527 
037616 
037 707 
037 7 76 
040061 



100204 
037020' 
OOOOOC 
000010 



037032' 

000000 

C00016 

000000 000000 



000000 037140 

000002 000001 

000004 100100 
037066' 



127 
127 
127 
127 
127 
103 
105 
125 
111 
103 



122 
122 
122 
122 
122 
157 
170 
156 
156 
157 



111 
111 
111 
111 
111 
156 
160 
145 
143 
155 



s - 



T9PACKET: 



.BLKB 10-<,-TSV26?> 



T9DATA} 



.WORD 
.WORD 
.WORD 
.WORD 



.WORD 
.WORD 
.WORD 
.WORD 



100204 

T9DATA 



8. 



T9BFR 


14. 
0,0 



T9BFR: .BLKW 6. 

J TEST DATA FOR SUBTEST TWO 

J DATA HAS FORMAT: 



1ST WORD OFFSET TO TEST WORD IN PACKET 
2ND WORD BITS TO SET FOR TEST 



{COMMAND PACKET FOR TEST 

jWRITE CHAR COMMAND, WITH IE, ACK 

{ADDRESS OF CHARACTERISTICS BLOCK 

{STARTING VALUE OF BLOCK SIZE 

{CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 



{MESSAGE BUFFER 



T92DATA: 



T92D0NE- 



.WORD 0,BIT5!BIT6!BIT9!BIT10!BIT11!BIT12!BIT13 
.WORD 2.BIT0 
.WORD 4,BIT6!BIT15 



{LOCAL TEXT MESSAGES FOR TEST 



T9N9A: 

T92REJ: 

T93REJ; 

T94REJ: 

T95RFJ; 

T9SSR; 

T9NINT: 

T9INT: 

T9TSBA; 

TST9ID: 



.ASCIZ 

.ASCIZ 
. ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

Contents 

Expected 



CHARACTERISTICS 
CHARACTERISTICS 
CHARACTERISTICS 
CHARACTERISTICS 
CHARACTERISTICS 



Command Not Accepted' 

Not Rejected With Non-Zero Unused Fields' 
Rejected With Invalid Data Count' 
Rejected With Invalid Block Address' 
Rejected With Invalid Buffer Length' 
of TSSR Incorrect After WRITE CHARACTERISTICS' 
Interrupt Not Received On WRITE CHARACTERISTICS' 



Not 
Not 
Not 



Unexpected Interrupt Received On WRITE CHARACTERISTICS 
Incorrect TSBA Address After WRITE CHARACTERISTICS' 
Completion Interrupt' 



{ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 



Mil 



TSV5A - HARDWARE TESTS 


MACRO MlllS 


TEST 9: COMPLETION INTERRUPT 


2465 






2466 040.106 






2467 040106 






2468 040112 


012701 


037010' 


2469 040116 


012721 


100204 


2470 040122 


012721 


O37O20' 


2471 040126 


005021 




2472 040130 


012721 


0000 10 


24 73 040134 


012721 


037032' 


2474 040140 


005021 




2475 040142 


012721 


000016 


24^6 040146 


005021 




24.7 040150 


005011 




;»47ii 040152 


005037 


037032' 


20/9 040156 


000207 




2460 040160 






040160 






040160 


104401 




2481 






2482 






2483 






2484 






2485 






2486 






2487 






2488 






2489 






2490 






2491 






2452 






249 7 , 






2494 






2495 






2496 






2497 040162 






040162 






2502 040162 


C12700 


043117* 


2503 040166 


004737 


016322' 


2504 040172 


012737 


000024 002214 


2505 040200 






2506 






2507 040200 






040200 






040200 


104402 




2508 






2509 040202 


004737 


043146' 


2510 040206 






040206 


012700 


000000 


040212 


104441 




2511 040214 


012704 


042310' 


2512 040220 


C12764 


000010 000006 


2513 040226 






2514 040226 






040226 


104404 




2515 






. 2516 040230 


004 7 57 


015604' 


2517 040234 


103405 





07 -FEB -84 10:58 



T9REST; 



SEQ 142 



SAVREG 




MOV 


•T9PACKET.R1 


MOV 


0100204, CRD* 


MOV 


0T9DATA,( U)» 


CLR 


CRD* 


MOV 


08. ,CR1)» 


MOV 


0T9BFR.CR1)* 


CLR 


CRD* 


MOV 


014. ,CR1)* 


CLR 


(Rl> 


CLR 


CRD 


CLR 


T9BFR 


RTS 


PC 


ENDTST 





j SAVE THE REGISTERS 

j START OF THE PACKET 

jURITF CHARACTERISTICS WITH ACK, IE 

i ADDRESS OF CHAR DATA BLOCK 

j EXTENDED ADDRESS 

I SIZE OF DATA BLOCK IN BYTES 

{ADDRESS OF MESSAGE BUFFER 

j LENGTH OF MESSAGE BUFFER 



j CLEAR 1ST LOC IN MESSAGE BUFFER 
j RETURN 



L10065: 



TRAP 



C$ETST 



.SBTTL TEST 10: BASIC PACKET PROTOCOL 



THIS TEST VERIFIES BASIC OPERATION OF THE MESSAGE BUFFER RELEASE 
COMMAND, THE FUNCTION OF THE ACK BIT IN THE COMMAND HEADER WORD, 
AND THE REGISTER MODIFICATION REFUSED (RMR) LOGIC. 



i * 



TEST 10 SUBTEST 1 

CHECKS THAT THE MESSAGE BUFFER RELEASE COMMAND WORKS 
{PROPERLY AND THAT NO INTERRUPT IS GENERATED EVEN 
j IF THE "IE" BIT IS SET IN THE COMMAND PACKET 



i - 



T1OL00P: 



BGNTST 

MOV 
JJH 
MOV 



OTST10IQ.R0 

PC.TSTSETUP 
020 « .LOOPCNT 



T10: : 
ASCII MESSAGE TO IDENTIFY 
00 INITIAL TEST SETUP 
PERFORM 20 ITERATIONS 



TEST 



BGNSUB 



JSR PC.T1CRST 

SETPRI APR 100 



5$ 



MOV 
MOV 

BGNSEG 



JSR 
BCS 



0T10PACKET.R4 
08. .PKBCNTCR4) 



PC.S0FIN1T 
10$ 



?//////////// BEGIN SUBTEST //////////// 

T10.1: 

TRAP C$BSUB 

j SET PACKET TO INITIAL VALUES 

i LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV OPRIOO.RO 
TRAP CJSPR1 
jGET THE ADDRESS OF COMMAND PACKET 
; START WITH MINIMUM ALLOWABLE VALUE 

;>>>>>>>>>>>> BEGIN SEGMENT >»n»»si»» 

TRAP CSBSEG 

{DO SOFT INIT OF CONTROLLER 
j BR IF SOFT INIT * OK 



T5V5A - HARDWARE TESTS MACRO M1U3 
TEST 10: BASIC PACKET PROTOCOL 



07 -FEB -84 10:58 



Ni: 



i 



SEQ 143 



2521 


040236 


010001 




2522 


040240 








040240 


104455 






040242 


001751 






040244 


003644' 






040246 


011644' 




2523 


040250 


005037 


002220' 


2524 


040254 


0050 T ,7 


002222' 


2525 


040260 


010465 


000000 


2526 


040264 


004737 


016146' 


2527 


040270 


103407 




2528 


040272 


010001 




2532 


040274 








040274 


104455 






040276 


001752 






040300 


O42650 4 






040302 


011656' 




;.:.533 


040304 


005237 


002220' 


2534 


040310 








040310 


104406 




2535 


040312 








040312 


104410 






040314 


000056 




2536 


0*^316 


C05737 


002222' 


2537 


040322 


001004 




2541 


040324 








040324 


104456 






040326 


001753 






040330 


042737' 






040332 


011656' 




2542 


040334 


016501 


000002 


2543 


040340 


012702 


000200 


2544 


040344 


032701 


000100 


2545 


040350 


001402 




2546 


040352 


052702 


000100 


2547 


040356 


020201 




2548 


040360 


001404 




2552 


040362 








040362 


104456 






040364 


001754 






040366 


042511' 






040370 


011656' 




2553 


040372 






2554 


040372 

040372 








040372 


104405 




2555 


040374 








040374 


104404 




2556 








2557 


040376 


005037 


002222' 


2558 


040402 


012737 


025252 


2559 


040410 


012H4 


100212 


2560 


040414 


C10465 


000000 


2561 


040420 


004 73/ 


016146' 


2562 


040424 


103407 




2563 


040426 


010001 




2567 


040430 







MOV R0.R1 

ERRDF ERRNO , SFIERR , SFIMSG 



10$: 



CLR 


FATFLG 


CLR 


INTRECV 


MOV 


R4,TSDBCR5) 


JSR 


PC.CHKTSSR 


BCS 


15$ 


MOV 


R0,R1 


ERRDF 


ERRNO, T10SSR, PKTSSR 



15$; 



22$: 



25$: 



30$: 



ENDSEG 



BGNSEG 



042332 



{SAVE CONTENTS OF TSSR 

j DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 

j CLEAR FATAL ERROR FLAG 

{CLEAR INTERRUPT RECEIVED FLAG 

{SET THE PACKET ADDRESS 

{WAIT FOR SSR TO SET 

{BR IF CARRY SET (GOOD RETURN) 

;SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 



C$EPQF 
1001 
SFIERR 
SFIMSG 



C$> SDF 

ic^: 

TlOS.iR 

PKTSSR 



INC 


FATFLG 






{SET FATAL ERROR FLAG 




CKLOOP 








{LOOP ON ERROR, IF FLAG SET 

TRAP 


C$CLP1 


ESCAPE 


SEG 






jBY-PASS SUBTEST IF FATAL ERROR 

TRAP 
.WORD 


C$ESCAPE 
10000$-. 


TST 


INTRECV 






{DID AN INTERRUPT OCCUR ? 




BNE 


22$ 






{BRANCH IF YES 




ERRHRD 


ERRNO, T10NINT 


.PKTSSR 














TRAP 


C$ERHRD 










.WORD 


1003 










.WORD 


T10NINT 










.WORD 


PKTSSR 


MOV 


TSSRCRb!) 


,R1 




{GET THE CONTENTS OF TSSR 




MOV 


*SSR»R2 






{EXPECTED CONTENTS OF TSSR 




PIT 


OOFL,Rl 






;IS OFF-LINE BIT SET ? 




BEQ 


25$ 






{BRANCH IF NOT OFF-LINE 




BIS 


#JFL,R2 






;SET OFF-LINE IN EXPECTED DATA 




CMP 


R2.R1 






{DOES EXPECTED MATCH RECEIVED ? 




BEQ 


30$ 






{OKAY IF MATCH 




ERRHRD 


ERRNO, T10NBA, 


PKTSSR 


{NBA NOT ZERO 












TRAP 


C$ERHRD 










.WORD 


1004 










.WORD 


T10NBA 










.WORD 


PKTSSR 



;<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C$ESFG 
{>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP C$BSEG 



CLR 


INTRECV 


r;ov 


$025252, T10BFR 


MOV 


*100212»(R4) 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


BCS 


45$ 


MOV 


R0.R1 


ERRDF 


ERRNO.TIOSS^, PKTSSR 



;CLEAR INTERRUPT RECEIVED FLAG 

{WIPE OUT MESSAGE BUFFER AREA 

{SET COMMAND PACKET TO MESS BUF 

;SET THE PACKET ADDRESS 

{WAIT FOR SSR TO SET 

;BR IF CARRY SET (GOOD RETURN) 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 



REL 



B12 



TSV5A - 


HARDWARE TESTS 


MACRO H1113 


TEST 10: BASIC 


PACKET 


PROTOCOL 




040450 


104455 






040432 


001755 






040454 


042650* 






040456 


011656' 




2566 


040440 


005257 


002220' 


2569 


040444 








040444 


104406 




2570 


040446 


005737 


002222- 


2571 


040452 


001404 




2575 


0404 54 








040454 


104456 






040456 


001756 






040460 


04 5050* 






040462 


011656' 




2576 


040464 


016501 


00OOO2 


2577 


0404 70 


012702 


000200 


2570 


040474 


052701 


000100 


2579 


040500 


001402 




2560 


04 1; 502 


052702 


000100 


25*1 


O40506 


020201 




2562 


040510 


001404 




2586 


040^1* 








040512 


104456 






04u5l4 


001757 






040516 


042573' 






040520 


011656' 




2567 


040522 






2!>68 


040522 


015701 


042532* 


2569 


040526 


012702 


025252 


5590 


040532 


020102 




259 1 


040554 


001404 




2595 


040556 








040536 


104456 






040540 


00 i 760 






040542 


042414' 






040544 


015504* 




2596 


040546 






2597 


040546 


005757 


002220* 


2598 


040552 


001405 




2599 


040554 


004757 


017014' 


2600 


040560 
040360 








040560 


104405 




2601 


040562 






2602 


040562 
040562 








040562 


104403 




2603 








2604 








2605 








2606 








260 7 








2608 








2609 








2610 








2611 








2612 









07-FEB-64 10i58 



45*5 



52*1 



55$ i 



60$ s 



70* { 



80$ i 



TRAP 
.WORD 
.WORD 
.WORD 



SEQ 144 



C$ERDF 
1005 
T10SSR 
PKTSSR 



INC 


FATFLG 


iSET FATAL ERROR FLAG 




CKLOOP 




lLOOP ON ERROR, IF FLAG SET 








TRAP 


C$CLP1 


1ST 


INTRECV 


iDID AN INTERRUPT OCCUR ? 




BEQ 


52$ 


I BRANCH IF NO 




ERRMRD 


ERRN0,T10INT»PKTSSR 










TRAP 


C$ERHRD 






.WORD 


1006 






.WORD 


T10INT 






.WORD 


PKTSSR 


MOV 


TSSR(R5),R1 


iGET THE CONTENTS OF TSSR 




MOV 


GSSR.R2 


lEXPECTED CONTENTS OF TSSR 




BIT 


♦0FL.R1 


lIS OFF-LINE BIT SET ? 




BEQ 


55$ 


iBRANCH IF NOT OFF-LINE 




BIS 


#0fL.R2 


iSET OFF-LINE IN EXPECTED DATA 




CMP 


R2,R1 


jDOES EXPECTED MATCH RECEIVED ? 




BEQ 


60$ 


lOKAY IF MATCH 




F.RRMRD 


ERRNO.UONNBA, PKTSSR 


|N0A SET 








TRAP 


C$ERHRD 






.WORD 


1007 






.WORD 


T10TMBA 






.WORD 


PKTSSR 


MOV 


T10BFR.R1 


iPICK UP THE 1ST WORD OF MESSAGE BUFFER 


MOV 


♦025252.R2 


iSET UP EXPECTED DATA 




CfP 


R1.R2 


jWAS ANY MESSAGE REC'O 




BEQ 


70$ 


iBR. IF OK (EQUAL) 




ERRHRD 


ERRN0.T10MBF.EXPREC 


iMtSSAGE BUFFER WAS MODIFIED 








TRAP 


C$ERHRD 






.WORD 


10C6 






.WORD 


T10M6F 






.WORD 


&XPREC 



TST FATFLG 

BEQ 80$ 

JGR PC*CKDROP 
ENOSEG 



ENOSUB 



I ANY FATAL ERRORS 
iBR. If NO FATAL ERRORS 
i TRY TO DROP THE UNIT 
,<<<<<<<<<<<<< END SEGMENT 

10O01I: 

TRAP 



<Kt<<<<<<4<<< 



C$ESEG 



\/////////,'// END SUBTEST //////////// 

L10076J 

TRAP CIESUB 



I TEST 10 SUBTEST 2 



jCMECKS 
iPROPtRl 

iBIT IS 
lIS SET 

I 
J 



THAT THE MESSAGE BUFFER RELEASE COMMAND WU\K$ 
Y AND THAT THERE IS AN INTERRUPT IF THE "IE" 
SET IN THE COMMANO PACKET AND THE "ERI M BIT 
TN THE CHARACTERISTICS DATA PACKET 



C12 



TSV5A - HARDWAR 
TEST lOj BASIC 


Mm 


pMoC 1115 ° 


2613 


040564 
040564 








040564 


104402 




2t>14 








2615 


040566 


0O4737 


043146' 


2616 


040572 








040572 


012700 


000000 




040576 


104441 




2617 


040600 


012704 


042310' 


2618 


040604 


012764 


000010 000006 


2619 


04 0*12 






2620 


040612 








040612 


104404 




2621 








2622 


040614 


004737 


015604' 


2623 


040620 


103405 




2627 


040622 


010001 




2628 


040624 








040624 


104455 






040626 


001761 






040630 


003644* 






040632 


011644* 




2629 


040634 


005037 


002220* 


2630 


040640 


005037 


002222' 


2651 


0*06*4 


012737 


000020 042326 


2632 


0406:.? 


010465 


OOOOOO 


2633 


040656 


004 737 


016146' 


2631 


040662 


103407 




^55 


040664 


010001 




2639 


040666 








040666 


104455 






040670 


001762 






040672 


042650' 






040674 


011656' 




2640 


040676 


005237 


002220* 


26*1 


040702 








040702 


104406 




2642 


040704 








040704 


10443 






040706 


0000!* 




;>64 3 


040710 


C057>.7 


002222' 


2644 


040714 


001004 




2648 


040716 








040716 


104456 






040720 


001763 






040722 


04273/' 






040724 


Oll'jSf • 




2649 


040726 


016501 


000O02 


2650 


040732 


012702 


000200 


26b 1 


040736 


032701 


000100 


2652 


040742 


001402 




2653 


040744 


052702 


000 100 


2654 


040750 


020201 




2655 


040752 


001404 




2659 


040754 








040/54 


104456 






040756 


001764 





07-FEB-34 10}58 



BGNSUG 



5$t 



JSR 
SETPRI 



hOV 
MOV 

8GNSEG 



10*5 



15tj 



22*: 



25$ i 



pc.noRST 

OPRIOO 



♦ U0PACKET.R4 
48,,PKBCNT(R4) 



SEG 145 



l//////////// BEGIN SUBTEST //////////// 

T10.2} 

TRAP C$BSLtt 

l SET PACKET TO INITIAL VALUES 
lLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV OPRIOO.RO 

TRAP C$SPRI 

iGET THE AOORESS OF COMMAND PACKET 
I START WITH MINIMUM ALLOWABLE VALUE 



!>>>>>>>>>>>> 



BEGIN SEGMENT >>>>>>»>»>>> 
TRAP CIBSEG 



JSR 


PC.SOFINIT 


BCS 


10$ 


MOV 


RO,Rl 


ERRDF 


ERRNO.SFIERR.SFIMSG 



CLR 


FATFt.G 


CLR 


INTRECV 


MOV 


♦000020, U00ATA*6 


MOV 


R4,TS0B(R5) 


JSR 


PC.CHKTSSR 


BCS 


15$ 


MOV 


R0.R1 


ERRDF 


ERRNO^IOSSR.PKTSSR 



lOO SOFT INIT OF CONTROLLER 
iBR IF SOFT INIT - OK 
l SAVE CONTENTS OF TSSR 
iDEVICE FATAL ERROR DURING INIT 

TRAP CU'RDF 

.WORD 1009 
.WORD SFIERR 
,WORO SFIMSG 
iCLEAR FATAL ERROR *"LAG 
iCLEAR INTERRUPT RECEIVED FLAG 
jSET ERI IN CHARACTERISTICS iiATA 
i SET THE PACKET ADDRESS 
{WAIT FOR SSR TO SET 
;BR IF CARRY SET CGOOO RETURN) 
iSAVE CONTENTS OF TSSR 
iDEVICE FATAL SSR FAILED TO SET 







TRAP 


CIERDF 






.WORO 


1010 






.WORD 


T10SSR 






.WORD 


PKTSSR 


INC 


FATFU, 


iSET FATAL EPROr FlAG 




CKLOOP 




iLOOP ON ERROR, IF FLAG SET 








TRAP 


CICLP1 


ESCAPE 


SEG 


jBY-PASS SUBTEST IF FATAL ERROR 








TRAP 


CIESCAPE 






.WORD 


10000$-. 


TS'f 


INTRECV 


iDIO AN INTERRUPT OCCUR ? 




BNE 


Z2% 


jBRANCH IF YES 




ERRHRD 


hRRNO»T!ONINT,PKTSSR 










TRAP 


C$ERHRD 






.WORD 


1011 






.WORD 


UONINT 






.WORD 


PKTSSQ 



MOV 


TSSRCR5),R1 


MCV 


0SSR.R2 


BIT 


00FL.R1 


BEQ 


25$ 


BIS 


00FI.R2 


CMP 


R2.R1 


BEd 


30$ 


ERRHRD 


ERRNO.TXONBA, PKTSSR 



jGET THE CONTENTS OF TSSR 
♦EXPECTED CONTENTS Of TSSR 
lIS OFF-LINE BIT SET ? 
♦ BRANCH IF NOT OFF LINE 
iSET OFF-LINE IN EXPECTED DATA 
iDOES EXPECTED MATCH RECEIVED 
lOKA> IF MATCH 
iNBA NOT ZERO 

TRAP 
.WORD 



CHRHRD 
101J 
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E12 



07-FEB-84 10:58 



SEQ 147 



2707 


041146 


004737 


017014' 


2708 


041152 






2709 


041152 
041152 








041152 


104405 




2710 


041154 
041154 








041154 


104403 




2711 








2712 








2713 








2714 








2715 








2716 








2717 








2718 








2719 








2720 


041156 
041156 








041156 


104402 




2721 








2722 


041160 


004737 


043146' 


2723 


041164 








041164 


012700 


oooooo 




041170 


104441 




2724 


041172 


012704 


042310' 


2725 


041176 


012764 


000010 000006 


2726 


041204 






2727 


041204 








041204 


104404 




2728 








2729 


041206 


004737 


015604' 


2730 


041212 


103405 




27AC 


041214 


010001 




2735 


041216 








041216 


104455 






041220 


001771 






041222 


003644' 






041224 


011644' 




2736 


041226 


005037 


002220' 


2737 


041232 


005037 


002222* 


2738 


041236 


010465 


OOOOOO 


2739 


041242 


004737 


016146' 


2740 


041246 


103407 




2741 


041250 


010001 




2745 


041252 








041252 


104455 






041254 


001772 






041256 


042650' 






041260 


011656' 




2/46 


041262 


005237 


002230' 


2747 


041266 








041266 


104406 




2748 


041270 








041270 


104410 






041272 


000056 




2749 


041274 


005737 


002222' 



80$: 



JSR 
ENDSEG 

ENDSUB 



PC.CKDROP 



l TRY TO DROP THE UNIT 



t <<<<<<<<<<<<< eno SEGMENT <<<<<<<<<<<<< 

10001$: 

TRAP CIESEG 

1 //////////// END SUBTEST //////////// 

L10077: 

TRAP CSESUB 



i ♦ 



?TEST 10 SUBTEST 3 



j CHECKS THAT THE CPU GIVES UP OWNERSHIP OF THE MESSAGE BUFFER 
j AFTER THE MESSAGE BUFFER RELEASE, AND THAT FOLLOWING COMMANDS 
iWORK CORRECTLY 



\ 
i - 



5$ 



BGNSUB 



JSR 

SETPRI 



MOV 

MOV 

BGNSEG 



10$ 



15$ 



PC.T10RST 
OPRIOO 



0T10PACKET.R4 
08. .PKBCNTCR4) 



I //////////// BEGIN SUBTEST /////// '//// 

T10.3: 

TRAP C$BSU8 

I SET PACKET TO INITIAL VALUES 
lLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV *PRIOO,R0 
TRAP C$SPRI 
iGET THE ADDRESS OF COMMAND PACKET 
j START WITH MINIMUM ALLOWABLE VALUE 

,>>>>>>>>>>>> 3EGIN SEGMENT >>>>>>>>>>>> 



TRAP 



C$BSEG 



JSR 


PC.SOFINiT 


iDO SOFT INIT OF CONTROLLER 




BCS 


10$ 


iBR IF SOFT INIT • OK 




MOV 


R0.R1 


iSAVF CONTENTS OF TSSR 




ERRDF 


ERRNO.SFIERR.SFIMSG 


1 DEVICE FATAL ERROR DURING INIT 








TRAP 


CIERDF 






.WORD 


101.7 






.WORD 


SFIERR 






.WORD 


SFIMSG 


CLR 


FATFLG 


iCLEAR FATAL ERROR FLAG 




CLR 


INTRECV 


j CLEAR INTERRUPT RECEIVED FLAG 




MOV 


R4.TS0BCR5) 


iSET THE PACKET ADDRESS 




JSR 


PC.CHKTSSR 


jWAIT FOR SSR TO SET 




BCS 


15$ 


jBR IF CARRY SET (GOOO RETURN) 




MOV 


R0,R1 


jSAVE CONTENTS OF TSSR 




ERRDF 


ERRNO t T10SSR,PKTSSR 


»DEVICE FATAL SSR c AILED TO SET 








TRAP 


C$ERDF 






.WORD 


1018 






.WORD 


T10SSR 






.WORD 


PK TSSR 


INC 


FATFLG 


, SET FATAL ERROR FLAG 




CKLOOP 




jLOOP ON ERROR, IF FLAG SET 








TRAP 


CICLP1 


ESCAPE 


SEG 


tBY-PASS SUBTEST IF FATAL ERROR 








TRAP 


CtESCAPE 






.WORD 


10000$-, 


TST 


INTRECV 


j DID AN INTERRUPT OCCUR ? 
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F12 



2750 
2754 



2755 
2756 
2757 
2758 
2759 
2760 
2761 
2765 



2766 
2767 



2768 

2769 
2770 
2771 
2772 
2773 

2774 
2775 
2776 
2780 



2781 
2782 

2783 
2784 
2788 



2789 

2790 
2791 
2792 
2793 
2794 
2795 
2799 



041300 
041302 
041302 
041304 
041306 
041310 
041312 
041316 
041322 
041326 
041330 
041334 
041336 
041340 
041340 
041342 
041344 
041346 
041350 
041350 
041350 
041350 
041352 
041352 
041354 
041360 
041364 
041372 
041376 
041402 
041406 
041410 
041412 
041412 
041414 
041416 
041420 
041422 
041426 
041426 
041430 
041434 
041436 
041436 
041440 
041442 
041444 
041446 
041452 
041456 
041462 
041464 
041470 
041472 
041474 
041474 
041476 



001004 

104456 
001773 
042737' 

011656* 

016501 0000C2 
012702 000200 
032701 000100 
001402 

052702 000100 
020201 
001404 

104456 
0017^4 
042511' 
011656' 



104405 

104404 

004737 043146' 

005037 002222' 

012737 025252 042332 

012714 100212 

010465 000000 

004737 016146' 

103407 

010001 

104455 
001775 
042650' 

011656' 

005237 002220' 

104406 

005737 002222' 

001404 

104456 

001776 

043030* 

011656' 

016501 000002 

012702 000200 

032701 000100 

001402 

052702 000100 

020201 

001404 

104456 
001777 



07-FEB-84 


10:58 






SEQ 148 




BNE 


22$ 


{BRANCH IF YES 






ERRHRD 


ERRNO, TIONINT, PKTSSR 


TRAP 
.WORD 
.WORD 
.WORD 


C*ERHRD 
1019 
TIONINT 
PKTSSR 


225 5 


MOV 


rSSR(R5),Rl 


>GET THE CONTENTS OF TSSR 






MOV 


0SSR.R2 


{EXPECTED CONTENTS OF TSSR 






BIT 


*0FL,R1 


lIS OFF-LINE BIT SET ? 






BEQ 


25* 


tBRANCH IF NOT OFF-LINE 






BIS 


*0FL,R2 


{SET OFF-LINE IN EXPECTED DATA 




25$: 


CMP 


R2,R1 


jDOES EXPECTED MATCH RECEIVED ? 






BEQ 


30* 


lOKAY IF MATCH 






ERRHRO 


ERRNO, TIONBA, PKTSSR 


j NBA NOT ZERO 

TRAP 
.WORD 
.WORD 
.WORD 


C*ERHRD 

1020 

TIONBA 

PKTSSR 


30*: 












ENDSEG 




;<<<<<<<<<<<<< eno SEGMENT * %<<<<<<<<<< 








10000* i 










TRAP 


C*ESEG 




BGNSEG 




, >>>>>>>>>>*> BEGIN SEGMENT >>>>>>>>>>>> 








TRAP 


CS6SEG 



JSR 


PC.T10RST 


CLR 


INTRECV 


MOV 


0025252, T10BFR 


MOV 


0100212, (R4) 


MOV 


R4,TSD6(R5) 


JSR 


PC, CHKTSSR 


BCS 


45$ 


MOV 


R0,R1 


ERRDF 


ERRN0.T10SSR, PKTSSR 



{RESET PACKETS AND COMMANDS 

{CLEAR INTERRUPT RECEIVED FLAG 

{WIPE OUT MESSAGE BUFFER AREA 

{SET COMMAND PACKET TO MESS BUF 

{SET THE PACKET ADDRESS 

{WAIT FOR SSR TO SET 

iBR IF CARRY SET CGOOO RETURN) 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 



REL 



45$: 



52$: 



55$: 









TRAP 


C$ERDF 








.WORD 


1021 








.WORD 


T10SSR 








.WORD 


PKTSSR 


INC 


FATFLG 


jSET FATAL ERROR FLAG 






CKLOOP 




{LOOP ON ERROR, IF FLAG 


SET 
TRAP 


C$CLP1 


1ST 


INTRECV 


iDID AN INTERRUPT OCCUR 






BEQ 


52* 


{BRANCH xF NO 






ERRHRD 


ERRN0.T10INT, PKTSSR 




TRAP 
.WORD 
.WORD 
.WORD 


C*ERHR 
1022 
TIOINT 
PKTSSR 



MOV 


TSSRCR5;,R1 


MOV 


0SSR.R2 


BIT 


*0FL,R1 


BEQ 


55$ 


BIS 


00FL,R2 


CMP 


R2.R1 


BEQ 


60* 


ERRHRD 


ERRN0,T10NNBA, PKTSSR 



{GET THE CONTENTS OF TSSR 
{EXPECTED CONTENTS Of TSSR 
{IS OFF-LINE BIT SET ? 
{BRANCH IF NOT OFF-LINE 
{SET OFF-lINE IN EXPECTED DATA 
{DUES EXPECTED MATCH RECEIVED 
{OKAY IF MATCH 
{NBA NOT SET 

TRAP 
.WORD 



CtERHRD 
10c?3 
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G12 



SEQ 149 



2800 
2801 
2802 
2803 
2804 
2808 



2809 
2810 

2811 

2812 
2813 
2814 
2815 
2816 
2817 
2618 
2822 



2823 
2824 

2825 



2826 
2827 
2831 
2832 



2833 
2834 
2835 
2836 
2837 
2838 
2839 
2843 



2844 
2845 



041500 
041502 
041504 
041504 
041510 
041514 
041516 
041520 
041520 
041522 
041524 
041526 

041530 
041530 

041532 
041536 
041542 
041546 
041552 
041556 
041560 
041562 
041562 
041564 
041566 
041570 
041572 
041576 
041576 
041600 
041600 
041602 
041604 
041610 
041612 
041616 
041616 
041620 
041622 
041624 
041626 
041632 
041636 
041642 
041644 
041650 
041652 
041654 
041654 
041656 
041660 
041662 
041664 
041664 
041664 



042573' 
011656' 

0137C1 042332 
012702 025252 
020102 
001404 

104456 
002000 
042414' 
015304' 



.0$: 



.WORD 
.WORD 



T10NN6A 
PKTSSR 



MOV 


T10BFR.RI 


MOV 


0025252, R2 


CMP 


R1.R2 


BEQ 


70$ 


ERRHRD 


ERRNO.TIOMBF.EXPREC 



104406 

005037 
004737 
042714 
010465 
00*: 737 
10i407 
01(001 

104455 

002001 

042650' 

011656' 

005237 

104406 

104410 
000062 
005737 
001006 
016500 

104456 

002002 

042737' 

011656' 

016501 

012702 

032701 

001402 

052702 

020201 

001404 

104456 

002003 

042650- 

011656' 



70$: 



CKLOOP 



002222' 

043146 1 

100000 

000000 

016146' 



CLR 


INTRECV 


JSR 


PC.UORST 


BIC 


0100000, CR4) 


MOV 


R4,TSDB(R5) 


JSR 


PC.CHKTSSR 


BCS 


75$ 


MOV 


RO.Rt 


ERRDF 


ERRN0.T10SSR, PKTSSR 



002220 



75$: 



002222' 
000002 



INC FATFLG 
CKLOOP 

ESCAPE SEG 



TST INTRECV 

BNE 82$ 

MOV TSSR(R5).R0 

ERRHRD ERRN0,T10NINT, PKTSSR 



000002 

0O020O 
000100 

000100 



82$: 



85$: 



MOV 


rSSR(R5),Rl 


MOV 


0SSR.R2 


BIT 


00FL.R1 


BEQ 


85$ 


BIS 


00FL.R2 


CMP 


R2.R1 


BEQ 


90$ 


ERRHRD 


ERRNO,UOSSR, PKTSSR 



I PICK UP THE 1ST WORD OF MESSAGE BUFFER 

j SET UP EXPECTED DATA 

I WAS ANY MESSAGE REC'D 

j BR, IF OK (EQUAL) 

j MESSAGE BUFFER WAS MODIFIED 

TRAP CIERHRD 
.WORD 1024 
.WORD T10M6F 
.WORD EXPREC 



90$: 



j LOOP ON ERROR IF FLAG SET 

TRAP 

j CLEAR INTERRUPT RECEIVED FLAG 

jRESET THE PACKETS AND COMMANDS 

j CLEAR THE ACK BIT 

I SET THE PACKET ADDRESS 

jWAIT FOR SSR TO SET 

,BR IF CARRY SET CGOOO RETURN) 

j SAVE CONTENTS OF TSSR 

I DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

iSET FATAL ERROR FLAG 

jLOOP ON ERROR, IF FLAG SET 

TRAP 

jBY-PASS SUBTEST IF FATAL ERROR 

TRAP 

.WORD 
jDID AN INTERRUPT OCCUR ? 
iBRANCH IF YES 
jGET TSSR FOR ERROR REPORT 

TRAP 
.WORD 
.WORD 
.WORD 
»GET THE CONTENTS OF TSSR 
>EXPECTED CONTENTS OF TSSR 
iIS OFF-LINE BIT SET ? 
{BRANCH IF NOT OFF-LINE 
jSET OFF-LINE IN EXPECTED DATA 
jDOES EXPECTED MATCH RECEIVED ? 
tOKAY IF MATCH 
iNBA NOT ZERO 

TRAP 
.WORD 
.WORD 
.WORD 



C$CLP1 



CIERDF 

1025 
T10SSR 



C$CLP1 

C$ESCAPE 
10001$-. 



C$ERHRD 
1026 
T10NINT 
PKTSSR 



CtERhRD 

1027 

nossn 

PKTSSA 



ENDSEG 



!<<<<<«<<<<<<< 



END SEGMENT 
10001$: 



<<<<<<<<<<<<< 
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H12 



SEQ 150 



2846 
2847 
28' 3 
2849 
2850 

2851 
2852 
2855 
2854 
2855 
2856 
2860 



2861 
2362 

2863 



2864 
2865 
2869 
2870 



2871 
2872 
2873 
2874 
2875 
2876 
2877 
2881 



2882 



2883 
2884 
2885 
2886 

2887 



2888 
2889 
2890 



041664 
041666 
041672 
041674 

041700 
041700 
041702 
041706 
041712 
041716 
041722 
041724 
041726 
041726 
041730 
041732 
041734 
041736 
041742 
041742 
041744 
041744 
041746 
041750 
041754 
041756 
041762 
041762 
041764 
041766 
041770 
041772 
041776 
042002 
042006 
042010 
012014 
042016 
042020 
042020 
042022 
042024 
042026 
042030 
042030 
042030 
042032 
042036 
042040 
042044 
042044 
042044 
042044 
042046 



104405 

005737 002220' 

001403 

004737 017014' 



002222' 

043146' 

000000 

016146' 



002220' 



002222 
000002 



104404 
005037 
004737 
010465 
004737 
103407 
010001 

104455 

002004 

042650' 

011656' 

005237 

104406 

104410 
000062 
005737 
001006 
016500 

104456 

002005 

042737' 

011656' 

016501 

012702 

032701 

001402 

052702 

020201 

001405 

104456 
002006 
042650' 
011656' 



104405 

005737 002220' 

001402 

004737 017014' 



95$: 



TST 


FATFLG 


BEQ 


951 


JSR 


PC.CKOROP 


BGNSEG 




CLR 


INTRECV 


JSR 


PC.T10RST 


hOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


BCS 


100$ 


MOV 


R0,R1 


ERRDF 


ERRNO.UOSSR, PKTSSR 



100$: 



000002 
0O0200 
000100 

000100 



112$: 



125$: 



104403 



130$ 
140$ 

30$: 

l ♦ 



ENDSU8 



TRAP CJESEG 
{ANY FATAL EPRORS 
{BR, IF NO FATAL ERRORS 
j TRY TO DROP THE UNIT 

l<<<<<< <<<< <<< QGN SEGMENT <<<<<<<<<<<<< 

TRAP C$BSEG 
{CLEAR INTERRUPT RECEIVED FLAG 
j RESET THE PACKETS ANO COMMANDS 
{SET THE PACKET ADDRESS 
{WAIT FOR SSR TO SET 
|BR IF CARRY ? 11 TGOOD RETURN) 
{SAVE CONTENT j OF TSSR 
{DEVICE FATAL SSR FAILED TO SET 







TRAP 


CiERDF 






.WORD 


1028 






.WORD 


T10SSR 






.WORD 


PKTSSR 


INC 


FATFLG 


{SET FATAL ERROR FLAb 




CKLOOP 




{LOOP ON EPK)R, IF FLAG SET 








TRAP 


C$CLP1 


ESCAPE 


SEG 


{BY -PASS SUBTEST IF FATAL ERROR 








TRAP 


C$ESCAPE 






.WORD 


10002$-, 


TST 


INTRECV 


{DID AN INTERRUPT OCC'JH ? 




BNE 


112$ 


{BRANCH IF YES 




MOV 


TSSR(R5).R0 


jGET TSSR FOR F.RR3R REPORT 




ERRHRD 


ERRN0.T10NINT, PKTSSR 










TRAP 


CIERMRO 






.WORD 


1029 






.WORD 


T10NINT 






.WORD 


PKTSSR 


MOV 


TSSR(R5),R1 


MET THC CONTEMS Of TSSR 




MOV 


*SSR,R2 


{EXPECTED CONK- NTS OF TSSR 




BIT 


*0FL,R1 


{IS OFF-LINE BIT S ET ? 




BEQ 


125$ 


{BRANCH IF NOT CFr-MNE 




BIS 


OOFl # R2 


{Set off-liic ;;k exacted DATA 




CMP 


R2.R1 


{DOES EXPECTED MATCH RECEIVED ? 




BEQ 


130$ 


{OKAY IF MVlCH 




ERRHRD 


ERRN0.T10SSR. PKTSSR 


}N8A NOT ZERO 








TRAP 


C$ERHRD 






.WOFD 


1030 






.WORD 


TiOSSR 






.WORD 


PKTSSR 


ENDSEH 




(<<< < <<<<<<<<< EtC 5iE»'iMEN T <<<<<<<<<<<<' 






10002$: 








TRAP 


OESF.C 


TST 


FATFLG 


{CHECK FATAL FLAG FOR SET 




BEQ 


140$ 


lE-R. i^ NOT SET COK) 




JSR 


PC.CKDROP 


{DROP DEVICE IF INDICATED 





\//////////// END SUBTEST //////.//// 

LlOlOOt 

TRAP CSESIH 



112 
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2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 



07-FEB-84 10}58 



tTEST 10 SUBTEST 4 



Cfc 



EQ 151 



iCHtCKS THAT THE REGISTER MODIFICATION REFUSED CRMR) BIT IN 
jTHE TSSR WILL BE SET IF A WRITE CHARACTERISTICS COMMAND 
{BEING EXECUTED AND ANOTHER "WC" COMMAND IS ATTEMPTED 



J - 



2900 
2901 

2903 



2904 
2905 
2906 
2907 
2908 
2909 

2910 
2911 
2915 
2916 



2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2928 



2929 
2930 

2931 



2932 
293? 
2934 
2935 
2939 



042046 
042046 



042050 
042054 
042060 
042060 
042064 
042066 
042072 
042076 
042104 
042112 
042112 
042112 
042114 
042120 
042122 
042124 
042124 
042126 
042130 
042132 
042134 
042140 
042144 
042150 
042154 
042160 
042164 
04*170 
042172 
042172 
042174 
042176 
042200 
C42202 
042206 
042206 
042210 
042210 
042212 
042214 
042220 



042222 
042222 



104 -)02 

004737 043220' 

004 737 043146' 

012 700 000000 

104*41 

012704 042310' 

012703 042352' 

012764 0O0010 000006 

012763 000010 000006 



5$; 



104404 
004737 
103405 
010001 

104455 

002007 

003644' 

011644' 

005037 

005037 

010465 

010365 

004737 

016501 

032701 

001006 

104455 

002010 

042650' 

011656' 

005237 

104406 

104410 
000056 
005737 
001004 



104456 



015604 



002220' 

002222* 

000000 

OOOCOO 

016060' 

000002 

000200 



10$ 



002220' 



15$ 



BGNSU6 



JSR 
JSR 
SETPRI 



MOV 
MOV 
MOV 
MOV 

BGNSEG 

JSR 
BCS 
MOV 
ERRDF 



CLR 
CLR 
MCV 
MOV 
JSR 
MOV 
BIT 
BNE 
ERRDF 



INC 
CKLOOP 



002222* 



TST 
BNE 



PC.T10RT2 
PC.T10RST 

OPRIOO 



M10PACKET.R4 
*T10PKT,R3 
*8. t PKBCNT(R4) 
08..PKBCNTCR3) 



PC.SOFINIT 

10$ 

R0.R1 

ERRNO.SFIERR.SKIMSG 



FATFLG 

INTRECV 

R4,TSDB(R5) 

R3,TSDB(R5) 

PC.WAITF 

T3SR(R5),R1 

*SSR,R1 

15$ 

ERRN0.T10SSR, PKTSSR 



FATFLG 



ESCAPE SEG 



T »JTRECV 

22; 



j //////////// BEGIN SUBTEST /////'////// 

UO. 4: 

TRAP CSBSUB 

»SET SECOND PAC<ET UP 

I SET PACKET TO INITIAL VALUES 

»L0WER PRIORITY TO ALLOW INTERRUPTS 

MOV *PRIOO,R0 
TRAP CISPRI 
I GET THE ADDRESS OF COMMANO PACKET 
iGFT THE ADDRESS OF 2N0 CMO PACKET 
j START WITH MINIMUM ALLOWABLE VALUE 
; START WITH MINIMUM ALLOWABLE VALUE 



, >>>>>>>>>>>> BEGIN SEGMENT >>> 

TRAP 

i DO SOFT INXT OF CONTROLLER 

I BR IF SOFT INIT - OK 

j SAVE CONTENTS OF TSSR 

X DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 

j CLEAR FATAL ERROR FLAG 

j CLEAR INTERRUPT RECtlVLD FLAG 

j SET THE PACKET ADDRESS 

, SECONO COMMANO PACKET 

j WAIT FOR SSR TO SET 

j GET CONTENTS OF TSSR REGISTER 

iCHECK FOR SSR (TSSR) SET 

jBR, IF SSR SET (GOOD) 

;DEVICE FATAL SSR FAILED TO SET 

TRAP 



CiBSEG 



C$ERDF 
1031 
SFIERR 
SFIMSG 



j SET FATAL ERROR FLAG 
I LOOP ON ERROR. IF FLAG 



.WORD 
.WORD 
.WORD 



SET 
TRAP 
jBY-PASS SUBTEST IF FATAL ERROR 

TRAP 
.WORD 
OCCUR ? 



{DID AN 
1 BRANCH 



INTERRUPT 
IF YES 



CSERDF 
1032 
T10SSR 
PKTSSR 



C$CLP1 

CI ESC APE 
10000$-. 



ERRHRD ERRNO, U0N1NT .PKTSSR 



TRAP 



C5ERHRD 
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042224 


002011 




042226 


042737' 




042230 


011656' 


2940 


042232 


016501 000002 


2941 


042236 


012702 110200 


2942 


042242 


032701 000100 


2943 


042246 


001402 


2944 


042250 


052702 000100 


2945 


042254 


020201 


2946 


042256 


001404 


2950 


042260 






042260 


104456 




042262 


002012 




042264 


042650' 




042266 


011656' 


2951 


042270 




2952 


042270 
042270 






042270 


104405 


2953 


042272 
042272 






042272 


104403 


2954 


0422/4 






042274 


1044 32 




042276 


000774 


2955 






2956 






2957 






2958 






2959 






2961 


042300 




2963 


042310 




2964 


042310 


100204 


2965 


042312 


042320' 


2966 


042314 


000000 


296/ 


042316 


C00010 


2966 






2969 


042320 




2970 


042320 


042332' 


2971 


042322 


000000 


2972 


042324 


000016 


2973 


042326 


000000 000000 


2974 






2975 


042332 




2976 






297 7 






2978 






2979 






2980 






2981 


042352 




2982 


042352 


100204 


2983 


042354 


042362' 


2984 


042356 


000000 


2985 


042360 


000010 


2986 






298/ 


042362 




2988 


042362 


042374' 



22$! 



25$; 



MOV 


TSSRCR5),R1 


MOV 


*SSR!RMR!SC,R2 


BIT 


*0FL,R1 


BEQ 


25$ 


BIS 


O0FL.R2 


CMP 


R2,R1 


BEQ 


30$ 



ERRHRO ERRN0.T10SSR .PKTSSR 



30$; 



ENDSEG 



END SUB 



EXIT TST 



j LOCAL STORAGE FOR THIS TEST 
♦ 

.BLKB 10-<. -TSV2£7> 
T10PACKET: 

.WORD 100204 

.WORD T100ATA 

.WORD 

.WORD 8, 

T10DATA; 

.WORD T10BFR 

. WORD 

,WORO 14, 

,WORD 0,0 

TlOBFRj .BLKW 8. 

i * 

TEST DATA FOR SUBTES1 FOUR 

UOPKTi 

.WORD 100204 

.WORD T10DTA 

.WORD 

.WORD 8. 



.WORD 
.WORD 
.WORD 
j GET THE CONTENTS OF TSSR 
j EXPECTED CONTENTS OF TSSR 
iIS OFF-LINE BIT SET ? 
j BRANCH IF NOT OFF-LINE 
j SET OFF-LINE IN EXPECTED DATA 



SEQ 152 



1033 

T10NINT 

PKTSSR 



iDOES EXPECTED MATCH RECEIVED 


7 


j OKAY IF MATCH 




tNBA NOT ZERO 




TRAP 


CIERHRD 


.WORD 


1034 


.WORD 


T10SSR 


.WORD 


PKTSSR 



,<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C$ESFt» 

t .'/////////// END SUBTEST //////////// 

L10101: 

TRAP C$ESU8 

jALi. DONE WITH THIS TEST 

TRAF C$EXIT 

/'^lO C10075 -. 



ilV . .'«0 PACKET KOR TEST 

l\\ * ": »;».*>; COMMAND, WITH Vc , AC* 

tfil Ar.M CY* CHARACTERISTICS BLOCK 

. t.VTINCi 7ALUC OF BLOCK ''Dc 

jCHARACTf.rtISTT.es DATA BLOCK 
! :, , '.':»S OF MESSAGE Eir-VlER 

H.l^rr; OF MESSAGE tU>EJ! 



•■•■; -Atfc BUFFER 



■•WI/W. .V-.wKl-'i -OH TtST 

r>:;r-tv. enr i >>:\'Nn. with ie. ack 
i -nr.:'Jss of * .• v 5'alveristics block 



•:rr:.TXNG v\, *■-.. 



BLOCK SIZE 



T10DTA; 



.WORD T10BUFR 



•r'HAM'CTERH ■'., D.'MA BLOCK 
|Ai)DRLSS UP* hESjaCE BUFFER 
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2989 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 
3001 
3002 
3C03 
3004 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
3012 
30 A 3 
3014 
3015 
3016 
3017 
3018 
3019 
3020 
3021 
3022 
3023 
3024 
3025 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 

303 7 
3036 
3039 
3040 
304 1 
3042 

304 3 
A 0.1 4 
3045 



042364 
042366 
042370 

042374 



042414 
042511 
042573 
042650 
042737 
043030 
043117 



043146 
043146 
043152 
043156 
043162 
043166 
043170 
043174 
043200 
043202 
043206 
043210 
043212 
043216 



043220 
043220 
043224 
043230 
043234 
043240 
04 1242 
04324b 
043252 



000000 
000016 
000000 



115 
116 
116 
103 
105 
125 
102 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
005011 
005037 
000207 



012701 
012721 
012721 
005021 

oi2::>i 

012721 
005021 



MACRO M1113 
PROTOCOL 



000000 
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. WORD 

. WORD 14 . 

.WORD 0,0 

T10BUFR; .BLKW 8, 



j LOCAL TEXT MESSAGES FOR TEST 



SEO 153 



I LENGTH OF MESSAGE BUFFER 



j MESSAGE BUFFER 



145 
102 
102 
157 
170 
156 
141 



163 
101 
101 
156 
160 
145 
163 



042310' 

100204 

042320' 

000010 
042332' 

000016 
042332' 



042352' 

100204 

042362' 

000010 
042374' 



T10M6F; 
T10N6A: 
T10NNBA 
UOSSR: 

T10NINT 
T101NT: 
TST10I0 



j * 



.ASCIZ 
.ASCIZ 

,asci? 

.ASCIZ 
.EVEN 



'Message Buffer Modified after MESSAGE BUFFER RELEASE Command' 

'NBA Not Clear After WRITE CHARACTERISTICS Command 

.ASCIZ 'N8A Set After MESSAGE BUFFER RELEASE Co.ftmand' 

'Contents of TSSR Incorrect After WRITE CHARACTERySTICS' 

.ASCIZ 'Expected Interrupt Not Received On WRITE CHARACTERISTICS 

'Unexpected Interrupt Received On WRITE CHARACTERISTICS' 

.ASCIZ 'Basic Packet Protocol* 



ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 



T10RST: 



SAVREG 

MOV aTlOPACKET.Rl 

MOV 0100204, CRD* 

MOV *T10DATA,CR1)» 

CLR CRD* 

MOV *6.,(R1)» 

MOV •TlOBF'R.CRDf 

CLR CRD* 

MOV 014., CRD* 

CLR CRD* 

CLR CRD 

CLR T10BFR 

RTS PC 



{SAVE THE REGISTERS 

j START OF THE PACKET 

{WRITE CHARACTERISTICS WITH ACK , IE 

{ADDRESS OF CHAR DATA BLOCK 

{EXTENDED ADDRESS 

{SIZE OF DATA BLOCK IN BYTES 

{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 



sCLEMR 1ST 
{RETURN 



LOC IN MESSAGE BUFFER 



{ROUTINE TU RESTORE COMMAND PACKET 42 TO START-UP (DEFAULT) VALUES 



{SAVE THE REGISTERS 

{START OF THE PACKET 

{WRITE CHARACTERISTICS WITH ACK, IE 

{ADDRESS OF CHAR DATA BLOCK 

lEXTENOED ADDRESS 

{SIZE OF OATA BLOCK IN BHES 

jAPDRESS OF MESSAGE BUFFER 



T10RT2: 


SAVREG 






MOV 


# T 10PKT,R1 




MOV 


O1002O4,(Rl)> 




MOV 


vmODTA.CRl)* 




CLR 


CRD* 




MOV 


08. ,(Ri)» 




MOV 


OTIOBUFR.CRI)* 




CLR 


CRD* 
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SEQ 154 



3046 
304 7 
3048 

3049 
3050 
3051 



3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3065 
3064 
3065 

3070 

3071 
307? 
3073 
3074 



30/5 
3076 



3077 
3078 
3082 
3083 



3084 
3035 
3086 
3087 
3091 



3092 
3093 
3094 
3095 
3096 



043254 
043260 
043262 
043264 
043270 
043272 
043272 
043272 



,\ 



043274 
043274 
043274 
043300 
04 3304 
013312 
043312 
043312 
043312 

043314 
043314 
043320 
043322 
043326 
043330 
043332 
043332 
043334 
043336 
043340 
043342 
043542 
043346 
043352 
04 3354 
043354 
043356 
04 3360 
043362 
043364 
043364 
043370 
043374 
043374 
043374 



012721 000016 

005021 

005011 

005037 042374' 

000207 



104401 



012700 
004737 
012737 



104402 



012700 
104441 
004737 
103405 
010001 

104455 
002115 
003644- 
011644' 

012704 
004737 
103404 

104456 
002116 
005050' 
011644 

004737 
012704 



104404 



MOV 


014. ,CRl)t 


CLR 


(Rl)* 


CLR 


CRD 


CLR 


T10BUFR 


RTS 


PC 


ENDTST 





{LENGTH OF MESSAGE BUFFER 



I CLEAR 1ST LOC IN MESSAGE BUFFER 
j RETURN 

L10075: 



TRAP 



C$ETST 



.SBTTL TEST 11: NON-TAPE MOTION COMMANDS 



J ♦ 



{THIS TEST VERIFIES PROPER OPERATION OF THE INITIALIZE 
{COMMAND. TWO SUBTESTS ARE USED. THE FIRST VERIFIES THAT 
: THE COMMAND HUNS TO COMPLETION AND STORES A VALID 
{MESSAGE PACKET. THE SECONO VERIFIES THAT NON-ZERO 
{VALUES IN THE COMMAND MODE FIELD CAUSES COMMAND REJECT. 



045302' 
016322* 
000024 



002214 



T11L00P: 



BGNTST 

MOV 
JSR 

MOV 

BGNSU6 



*TST11ID,R0 
PC.TSTSETUP 
*20.,L00PCNT 



000000 
015604 



SETPRI 0PRIOO 



Til: : 

{ASCII MESSAGE TO IDENTIFY TEST 
;D0 INITIAL TF?T SETUP 
{PERFORM 20 ITERATIONS 

1 //////////// BSGIN SUBTEST //////////// 

Tll.l: 

TRAP C$BSUB 

{LOWER PRIORITY TO ALLOW INTERRUPTS 



JSR 


PC.SOFINIT 


BCS 


31 


MOV 


R0.R1 


ERRDF 


ERRNO,SFIERR,SFIMSG 



3$ 



044530 

010472 



MOV 
JSR 
BCS 
ERRHRD 



0T11PK2.R4 

PC.WRTCHR 

4$ 

ERRNO.WRTMSG.SFIMSG 



MOV 
TRAP 

{DO SOFT INIT OF CONTROLLER 

;BR IF SOFT INIT - OK 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 

{WRITE CHARACTERISTICS PACKET 
{ISSUE WRITE CHARACTERISTICS 
{BR, IF COMMAND ISSUED OK 
{WRITE CHARACTERISTIC 



OPRIOO.RO 
CSSPR1 



CSERDF 
1101 
SFIERR 
SFIMSG 



045334 
044460 



At 
5J 



FAILED 




TRAP 


CiERHRD 


.WORD 


1102 


.WORD 


WRTMSG 


.WORD 


SFIMSG 



JSR 
MOV 

BGNSEG 



PC.TilREST 
0T11PACKET,R4 



{SET 
{GET 



UP PACKET FOR COMMAND 

THE ADDRESS OF COMMAND PACKET 



j >>>*»>*>>*>> 



BEGIN SEGMEN1 >>>>>>>> ^ > >> 
TRAP C$BSEG 
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SEQ 155 



3097 








3098 


043376 


005037 


002220' 


3099 


043402 


005037 


002222' 


3100 


043406 


010465 


000000 


3101 


043412 


004737 


016146' 


3102 


043416 


103407 




3103 


043420 


010001 




3107 


043422 








043422 


104455 






043424 


002117 






043426 


045024' 






043430 


011656' 




3108 


043432 


005237 


002220' 


3109 


043436 








04 3436 


104406 




3110 


043440 








043440 


104410 






043442 


000074 




y,U 


043444 


005737 


002222' 


6., 2 


043450 


001004 




3116 


043452 








043452 


104456 






043454 


002120 






0*43456 


045154' 






043460 


01 : 656* 




3117 


043462 


016501 


000002 


3118 


043466 


0127C2 


000200 


3119 


043472 


032701 


000100 


3120 


043476 


001402 




3121 


043500 


052702 


000100 


3122 


043504 


020201 




3123 


043506 


001404 




3127 


043510 








043510 


104456 






043512 


002121 






043514 


044572' 






043516 


011656' 




3128 


043520 






3129 


043520 


004737 


010724' 


3130 


043524 


103405 




3134 


043526 








043526 


104456 






043530 


002122 






043532 


004737* 






043534 


015320' 




3135 


043536 
043536 








043536 


104405 




3136 








3137 








3138 


043540 

043540 








043540 


104403 




3139 








3140 


04 3542 


005737 


002220' 


3141 


043546 


001402 




3142 


043550 


004737 


01/014* 



10*; 



CLR 


FATFLG 


CLR 


INTRECV 


MOV 


R4,TSDB(R5) 


JSR 


PC.CHKTSSR 


BCS 


15$ 


MOV 


R0.R1 


ERRDF 


ERRN0.T11SSR.PKTSSR 



15$: 



22*: 



25$: 



, CLEAR FATAL ERROR FLAG 

jCLEAR INTERRUPT RECEIVED FLAG 

{SET THE PACKET ADDRESS 

iWAIT FOR SSR TO SET 

}BR IF CARRY SET (GOOD RETURN) 

j SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO S 



et 



59$: 







TRAP 


C$ERDF 






.WORD 


1103 






.WORD 


T11SSR 






. WORD 


PKTSSH 


INC 


FATFLG 


I SET FATAL ERROR FLAG 




CKLOOP 




{LOOP ON ERROR, IF FLAG SET 








TRAP 


C$CLP1 


ESCAPE 


SEG 


jBY-PASS SUBTEST IF FATAL ERROR 








TRAP 


C$ESCAPF. 






.WORD 


10000*-. 


TST 


INTRECV 


j DID AN INTERRUPT OCCUR ? 




BNE 


22$ 


I BRANCH IF YES 




ERRHRD 


ERRN0,T11NINT,FKTSSR 










TRAP 


CIERHRD 






.WORD 


U0'« 






.WORD 


T11NINT 






.WORD 


PKTSSR 



MOV 


TSSRCR5),R1 


MOV 


0SSR.R2 


BIT 


00FL.R1 


BEQ 


25$ 


BIS 


00FL.R2 


CMP 


R2.R1 


BF-0 


30$ 


ERRHRD 


ERRN0.T11NBA.PKTSSR 



{GET THE CONTENTS OF TSSR 
i EXPECTED CONTENTS OF TSSR 
j IS OFF-LINE BIT SET ? 
{BRANCH IF NOT OFF-LINE 
{SET OFF-LINE IN EXPECTED DATA 
{DOES EXPECTED MATCH RECEIVED ' 
{OKAY IF MATCH 
sNBA NOT ZERO 

TRAP 
.WORD 
.WORD 
.WORD 



C>ERHRD 

1105 

T11N0A 

PKTSSR 



30$: 












35$: 


JSR 


PC.CKRAM 


{CHECK RAM TO MEMORY 








BCS 


59$ 


{RAM OK GO ON 








ERRHRD 


ERRNO, PKTRAM, RAMERR 


(THEY DON'T MATCH 


TRAP 
.WORD 
.WORD 
.WORD 


CiERHRD 
1106 
PKTRAM 
RAMERR 



ENDSEG 



ENDSUH 



{<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C$ESEG 



}\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

1.10103: 

TRAP C$ESUB 



TST 

BEQ 
JSR 



FATFl.G 

60$ 
PC.CKDROP 



[ANY FATAL ERRORS ? 

{BRANCH TF NOT 

{TRY TO DROP THE UNIT 
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3143 


043554 






3144 








3145 








3146 








314 7 








3148 








3149 








3150 








3151 








3152 








3153 








3154 


043554 
043554 








043554 


104402 




3155 








3156 


043556 








043556 


012700 


000000 




043562 


104441 




3157 


043564 








043564 


104404 




3158 








3159 








3160 


043566 


004 737 


015604' 


3161 


043572 


103405 




3165 


043574 


010001 




3166 


043576 








043576 


104455 






043600 


002123 






043602 


003644' 






043604 


01164s' 




3167 


043606 






3168 


043606 


012704 


044530' 


7.169 


043612 


C04737 


010472' 


:u7o 


043616 


103404 




3174 


043620 








043620 


104456 






04 3622 


002124 






043624 


005050' 






043626 


011644' 




3175 


043630 






3176 


043630 


004737 


045334' 


3177 


043634 


012704 


044460' 


3178 


043640 






3179 


043640 


005037 


002222' 


3180 


043644 


052714 


007400 


3181 


043650 


010465 


000000 


3185 


043654 


004737 


016146' 


3183 


043560 


103405 




3184 


043662 


010001 




3188 


043664 








043664 


1C4455 






04 3666 


002125 






043670 


045024' 






043672 


011656* 




3189 


043674 








043674 


104406 




3190 


0456 tC> 
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60$: 



SEQ 156 



TEST 11, SUBTEST 2 

CHECK THAT NON-ZERO MODE BITS BEING SET CAUSES 
INITIALIZE COMMAND TO BE REJECTED 



BGNSUB 



SETPRI GPRIOO 



BGNSEb 



;//////////// BEGIN SUBTEST //////////// 

Til. 2: 

TRAP C$BSUB 

{LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV OPRIOO.RO 
TRAP CISPRI 

•*>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP CSBSEG 



3$: 



JSR 


PCSOFINIT 


jDO SOFT INIT OF CONTROLLER 


BCS 


3$ 


{BR IF SOFT INIT ' OK 


MOV 


R0.R1 


l SAVE CONTENTS OF TSSR 


FRRDF 


ERRNO.SFIERR.SFIHSG 


{DEVICE FATAL ERROR DURING INIT 

TRfP 

.WORD 
.WORD 
. WORD 


MOV 


4T11PK2.R4 


iWRITE CHARACTERISTICS PACKET 


JSR 


PC.WRTCKR 


{ISSUE WRITE CHARACTERISTICS 


BCS 


4$ 


i BR, IF COMMAND ISSUED OK 


ERRHRD 


ERRNO»WRTMSG, SFIMSG 


{WRITE CHARACTERISTISC FAILED 



CJEROF 
1107 
SFIERR 
SFIMSG 



4$: 



TRAP 
.WORD 

.WORD 
.WORD 



CJERHRD 

1108 

WR1MSG 

SFIMSG 





JSR 


PC.T11REST 




MOV 


AT11PACKET.R4 


5$: 






10$: 


CLR 


INTRECV 




BIS 


OP. MODE, (R4) 




MOV 


R4.TSDBCR5) 




JSR 


PC.CHKTSSR 




BCS 


15$ 




MOV 


R0.R1 




ERRDF 


ERRN0.U1SSR.PKTSSR 



15$: CKLOOP 

ESCAPE SEG 



{SET UP PACKET FOR COMMAND 

;GET THE ADDRESS OF COMMAND PACKET 

{CLEAR IMERRUPT RECEIVED FLAG 

iNON-ZERO COMMAND MODE BITS 

{SET THE PACKET ADDRESS 

{WAIT FOR SSR TO SET 

iBR IF CARRY SET (GOOD RETURN) 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 

TRAP CitRDF 
.WORD 1109 
.WORD T11SSR 
.WORD PKTSSR 

{LOOP ON ERROR, IF FLAG SET 

yp^p C$CLP1 

jBY-PASS CHECKS IF FATAL ERROR 



B15 
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3191 
3192 
3196 



3197 
3198 
3199 

3200 
3201 
3202 
3203 
3207 



3208 
3209 

3210 
3214 



3215 



3216 
3217 



3218 
3219 
3220 
3221 
3222 
3225 
3224 
3225 
3226 
3227 



3229 



3250 

3231 
3252 
3236 



043676 
043700 
043702 
O43706 
043710 
043710 
043712 
043714 
D43716 
043720 
043724 
043730 
043734 
043736 
043742 
043744 
043746 
043746 
043750 
043752 
043754 
045756 
043756 
04 3762 
043764 
045764 
043766 
045770 
045772 
045774 
045774 
045774 

045/76 
045776 
043776 



044000 
044000 
044000 

044002 
044002 
044006 

044010 
044010 
044012 
044016 
044020 



104410 
000074 
005737 
001004 

104456 

002126 

045154' 

011656* 

016501 

012702 

032701 

001402 

052 702 

020201 

001404 

104456 
002127 
044632' 
011656' 

004737 

103405 

104456 
002130 
004757* 
015320' 



104405 



104403 



104402 



012700 
104441 

104404 

004757 
105405 
010001 



0O2.?22 



000002 
100206 

000100 

000100 
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SEQ 157 


TST 
BNE 
ERRMRD 


INTRECV 
221 

ERRNO.TUNINT.PKTSSR 


TRAP 
.WORD 

iDIO AN INTERRUPT OCCUR ? 

I BRANCH IF YES 


CIESCAPE 
10000$ - . 






TRAP 
.WORD 
.WORD 
.WORD 


CIERHRD 
1110 
TUNINT 
PKTSSR 



22$ j 


MOV 


TSSR(R5),R1 




MOV 


#SC?SSR|TSREJ I R2 




BIT 


00TL.R1 




BEQ 


251 




BIS 


40fL>R? 


25*: 


CMP 


R2.R1 




BEQ 


501 




ERRHRD 


ERRN0.TU2REJ, PKTSSR 



010724 



301; 
35$: 



591 1 



j * 



JSR 
BCS 

ERRHRO 



ENOSEG 



ENDSUB 



PC.CKRAM 
591 

ERRNO.PKTRAM.RAMERR 



jGET THE CONTENTS OF TSSR 

lEXPECTED CONTENTS Of* TSSR 

»IS OFT-LXNl tUT SET 7 

jBRANCH IF NOT OFF-LINE 

iSET OFF -LINE IN EXPECTED DATA 

iDOES EXPECTED MATCH RECEIVED ? 

jOKAY IF MATCH 

j COMMAND NOT REJECTED 

TRAP 
.WORD 
.WORD 
.WORD 

I CHECK RAM TO MEMORY 

,RAM OK GO ON 

I THEY DON' T MATCH 

TRAP 
.WORO 
.WORD 
.WORD 



CAERHRD 
1111 
TU2REJ 
PKTSSR 



CIERHRD 
1112 
PKTRAM 
RAMERR 



!<<<<<<<<<<<<< ENO SEGMENi 

10000*: 

TRAP 



'<<<<<<<<<<<< 



CIESEG 



|\\\\\\\\\W\\ ENO SUBTEST \\\\\\\\\\\\\ 

L10104: 

TRAP C1ESUB 



jTEST U, SUBTEST 5 

iCHECK THAT THE GET STATUS COMMAND IS ACCEPTED 



I 



000000 



Olf-604 



BGNSUB 



SETPRI frPRIOO 



BGNSEG 

j:>r 
BCS 

MOV 



PC.SOFINIT 

51 

R0.R1 



\////////// // BEGIN SUBTEST ,////////>./ 

Til. 3: 

TRAP C1B51G 

lLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV •PRIOO.RO 

TRAP CiSPRI 

! » * » > > »> » » > > > BEGIN SEGMENT »>»*»»»»>>»> 

TRAP CtBSEG 

iDO SOTT INIT OF CONTROLLER 
l3R IF SOFT INIT • OK 
I SAVE CONTENTS OF TSSR 
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3331 



3333 



3334 
3335 
3339 



3340 
3341 
3342 
3343 
3344 
3345 
3346 
3350 



3351 
3352 
3353 
3354 
3358 



3359 
3360 



3361 



3362 
3363 



3364 
3365 
3366 
3367 
3368 
3370 
3372 
3373 



044330 
044330 
044332 
044334 
044336 
0*4340 
044340 
044342 
044342 
044344 
044546 
044352 
044354 
044354 
044356 
044360 
044362 
044364 
044370 
044374 
044400 
044402 
044406 
044410 
044412 
044412 
044414 
044416 
044420 
044422 

044422 
044426 
044430 
0*4430 
044432 
044434 
044436 
044440 
044440 
044440 
044440 
044442 
044442 
044442 

044444 
044444 

044446 



044450 
044*60 
044460 



104455 
002141 
045100' 
011656' 

104406 

104410 

000076 

005737 002222' 

001004 

104456 

002142 

045154' 

011656' 

016501 000002 

012702 100206 

032701 000100 

001402 

0527C2 000100 

020201 

001*04 

104456 
0021.4 3 
044743' 
011656' 



004737 
103404 

104456 
002144 
004737 
015320 



104405 
104403 



104432 
000772 



15*} 



22$: 



25$: 



010724 



30$; 
35$: 
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SEQ 160 


ERRDF 


ERRN0.U1SR2. PKTSSR 


iDEVICE FATAL SSR FAILED TO SET 








TRAP 


C$ERDF 






.WORD 


112' 






.WORD 


T11SR2 






.WORD 


PKTSSR 


CKLOOP 




lLOOP ON ERROR, IF FLAG SET 








TRAP 


C$CLP1 


ESCAPE 


SUB 


»BY-PASS SUBTEST IF FATAL ERROR 








TRAP 


C$ESCAPE 






.WORD 


L10106-. 


TST 


INTRECV 


iDID AN INTERRUPT OCCUR ? 




BNE 


22$ 


j BRANCH IF YES 




ERRHRD 


ERRNO.TllNINT, PKTSSR 










TRAP 


CfERMRD 






.WORD 


1122 






.WORD 


T11NINT 






.WORD 


PKTSSR 


MOV 


TSSR(R5),R1 


iGET THE CONTENTS OF TSSR 




MOV 


*SC!SSR!TSREJ # R2 


^EXPECTED CONTENTS OF TSSR 




BIT 


OOfURl 


tIS OFF-LINE BIT SET ? 




BEQ 


25$ 


I BRANCH IF NOT OFF-LINE 




BIS 


00FL.R2 


iSET OFF-LINE IN EXPECTED DATA 




CMP 


R2.R1 


j DOES EXPECTED MATCH RECEIVED ? 




BEQ 


30$ 


lOKAY IF MATCH 




ERRHRD 


ERRN0.T114REJ, PKTSSR 


I COMMAND NOT REJECTED 








TRAP 


C$ERHRD 






.WORD 


1123 






.WORD 


T114REJ 






.WORD 


PKTSSR 


JSR 


PC.CKRAM 


j CHECK RAM TO MEMORY 




BCS 


59$ 


j RAM OK GO ON 




ERRHRD 


ERRNO.PKTRAM.RAMERR 


j THEY DON' T MATCH 





59$: 



ENOSEG 



ENDSU9 



TRAP C$ERHRD 

.WORD 1124 

.U»ORD PKTRAM 

.WORD RAMERR 

l<<<<<<< <<<<<< ENO SEGMENT <<<<<<<<<<< 

10000$: 

TRAP C$ESEG 

j\\\\\\\\\\\\\ END SUBTEST WWWNWWW 

L10106: 

TRAP CSESUB 



100204 



EXIT TST 



jt.OCAL STORAGE FOR THIS TEST 
I • 

.DLKB 10*. -TSV2£7> 
T11PACKET: 

.WORD 100204 



jALL DONE THIS TEST 



TRAP 
.WORD 



C$EXIT 
L10102 , 



, COMMAND PACKET FOR TES) 

j WRITE CHAR COMMAND, WITH IE, ACK 
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HI 3 



SEQ 163 



1 
7 

12 

18 
19 

20 
21 
22 
25 
24 
25 
26 
27 
23 
29 
30 
31 
32 



33 



35 



36 
3/ 



54 
55 



045442 
045442 



045442 
045442 
045444 

045444 
045444 
04544f 
045450 
045452 
045454 
045454 
045456 
045-460 
045462 

C. 45464 



04-M64 

38 0. 'J 5464 

39 Oi5520 

40 C45544 
4.1. 

•12 

13 

A A 

41 

46 

4 7 

48 

49 

50 

51 

52 

53 0455 T4 
045574 
045576 

045576 
045576 



000010 



000031 

045464' 

160010 

177776 

C0U31 
04*520 
0000 00 
000776 



104 
Hi 
.Ml 



105 
lib 
116 



000003 



001130 



TSV6; 



I ♦♦ 



.TITLE TSV6 - PARAMETER CODING 



BGNMOD TSV6 



.SBTTL HARDWARE PARAMETER CODING SECTION 



126 HPM1 
124 HPK2 
124 KPM3 



i THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 

; THAT ARE USED BY THE SUPERVISOR TO BUILD P- TABLES. THE 

l MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 

t INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 

i MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 

I WITH THE OPERATOR. 

BGNHRD 

.WORD L10107-LIHARD/2 
L SHARD:: 

GPRMA HPM1. 0,0, 160010, 177776.YES 

.WORD TICODE 

.WORD HPM1 

.WORD T$LOLIM 

.WORO TIHILIM 

GPRMA HPM2,2,0,0,776,YES 

.WORD TICODE 

. WORD HPM2 

.WORD T$LOLIM 

.WORD TIHILIM 

jGPRMO HPM3, 4, 0,340,0,7, YES 

ENDHRD 

.EVEN 

.ASCIZ 'DEVICE ADDRESS (TSBA/TSDB) ' 

.ASCIZ 'INTERRUPT VECTOR 

.ASCIZ 'INTERRUPT PRIORITY 
.EVEN 

.SHTTL SOFTWARE PARAMETER CODING SECTION 

I THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P- TABLES. THE 
MACROS APE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR, 



jGET TSBA/TSDB REGISTER ADDRESS 



(GET VECTOR AUuRfetti, 



iGET INTERRUPT PRIORITY, 



L10107: 



; 



BGNSFV 
WORD L10110-LISOFT/2 



I 


*»5:0*"T : j 




\ 


GP'.Mv. 


SPM1.0.-1 .YES 




GPRm 


SPH4, 2,-1. YES 




WORD 


TJCODE 



I GET TRANSPORT TEST f LAG 
t GET ITERATION CONTROL. 



1 b'.'t- - 
SOFTWAJ 



PARAMETER L JD1NG MACRO M1113 
PARAMETER CODING SECTION 
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\C 



045600 
045602 

56 

57 

58 045604 

045604 



045634 
177777 



L10.110: 



, WO n ,D 

. wcrto 
hphmd 

ENOfiFT 
.EVEN 



II 



3 



SPM4 

-1 

SPN6, 4, D,W77, 0,7777, YES 

SPM7, 6, D, 7777, 0,7777, YES 



SEQ 164 



I GET LOCAL ERROR LIMIT 
I GET GLOBAL ERROR LIMIT 



61 045604 
e? 045^4 
63 

6< 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 045664 

75 

76 

77 045664 

78 

79 

80 

81 

82 045666 

045666 
04 5670 
045672 

83 045672 
84 

85 
86 
87 

88 0<5672 

89 045672 
C45672 
045674 
045676 
045676 
045700 
045702 
045704 
045704 



90 
91 
92 
93 

94 
95 
96 



045704 



105 
111 



116 101 SPMls .PSCIZ 'ENABLE TRANSPORT TESTS 

116 110 SPM4: .»ISCIZ ' INHIBIT ITERATIONS 

jSPH6; .ASCIZ 'PER TEST ERROR LIMIT 

jSPM7j .ASCIZ 'PER UNIT ERROR LIMIT 

.SBTTL PATCH AREA 



I FINALLY A GENEROUS PATCH AREA. 

j ANft AN ADJUSTMENT TO ACCOUNT FOR THE "LASTAD BIT7" HACK 
; DliSCRTBEO IN "SUPPRG.MEM" (FOR REV C). 



000000 
000000 



000000 
000003 

172522 
000224 
000240 



000001 



PATCH; 



L.U.AST: 



L10111; 



LX0113; 



.RLKU 
.BLKW 



32. 
1. 



.IF NZ,.£377 

.v!377»l 

.ENOC 

LA* TAD 

.EVEN 

.WORD 

.WORD 



I SET LAST USED ADDRESS. 



ENOMOD 

.SBTTL 



HARD CODED P- TABLE 

DIAGNOSTIC IS PRE -PARAMETERIZED PER THIS TABLE 

BGNS1TUP 1 

BGNPTAB 

.WORD 

.WORD L10113-./2-1 



.WORD 
.WORD 
.WORD 
ENDPTAB 

ENDSETUP 
,EN0 



172522 
PRI05 



M13 



TSV6 - 
SYMBOL 


PARAMETER 
TABLE 


CODING 


MACRO M1113 07-FEB 


-84 


10 : 58 














SEU 168 


T8NVCK 


0346 37R 


002 


T 42DAT 


03705cR 


002 


WF.IRE- 


000040 




XSOILC' 


« 001000 


Xl.UNC- 


000002 




T6PACK 


034540R 


002 


.'92D0N- 


037066R 


002 


WF.IWF- 


000020 




XSOLET- 


■ 020000 


X2.BUF- 


000100 




T8SSR 


034730R 


002 


T92REJ 


037141R 


002 


WF.IWR- 


000100 




XSOMOT- 


■ 000200 


X2.EXT- 


000200 




T8VCK 


034602R 


002 


TS3REJ 


037240R 


002 


WF.I3R- 


000002 




XSONEF- 


• 002000 


X2.0PM- 


100000 




T9 


035036RG 


002 


T94REJ 


037333R 


002 


WF.I4R- 


000001 




XSOONL- 


■ 000100 


X2.RCE- 


040000 




T9BFR 


037O32R 


002 


T9'5REJ 


037431R 


002 


WR rCHR 


010472RG 


002 


XSOPED' 


• 000010 


X2.REV- 


000077 




T9DATA 


037020R 


002 


uam 


000200 G 




WR i'ERR 


005105R 


002 


XSORLL- 


• 010000 


X2.SPA- 


035400 




T9INT 


037707R 


002 


UN^TN 


002200RG 


002 


umMSG 


005050R 


002 


XSORLS' 


■ 040000 


X2.UNI- 


000007 




T9L00P 


035060R 


002 


UNHEC ■ 


000006 




WSliBK 


021020PG 


002 


XSOTMK' 


■ 100000 


X2.WCF- 


002000 




T9N8A 


037066R 


002 


us : 


00411SR 


002 


XFlERAS 


015550R 


002 


XSOVCK- 


■ 000020 


X3.DCK- 


000010 




T9NIN1 


037616R 


002 


WAJ'TF 


016060RG 


002 


XNXM 


016206R 


002 


XSOWLE- 


■ 004000 


X3.M8Z* 


000006 




T9PACK 


037010R 


002 


WC IFA- 


000200 




XO^BFO 


007504R 


002 


XSOWLK- 


« 000004 


X3.MDE- 


177400 




T9REST 


0*0106R 


002 


WC.IFE- 


000002 




X03FOR 


007622R 


002 


XXCOMM 


003120RG 


002 X3.0PI- 


000100 




T9SSR 


037527R 


002 


UC.l'GO" 


000001 




xsro - 


C00006 G 




X$ALWA« 


• 000000 


X3.REV- 


000040 




T9TSBA 


L-37776R 


002 


WC.IRE- 


000010 




X5T1 - 


000010 G 




XIF'ALS' 


■ 000040 


X3.RIB- 


0OOO01 




T9.1 


035060R 


002 


WC.IRW- 


000004 




XST2 ■ 


oooo 1,1 c; 




X$OFFS« 


• 000400 


X3.SPA- 


000200 




T9.2 


035326R 


002 


WC.IOT* 


000100 




XS 13 - 


oooci4 g 




XITRUE' 


• 000020 


X3 . TRF - 


000020 




T9.3 


035540R 


002 


WC.I1T* 


000040 




XST4 - 


000016 G 




XI. COR« 


• 020000 


X4.HSP- 


100000 




T9.4 


035744R 


002 


UC.I5R- 


000020 




XSOB01 - 


000002 




Xl.DLT- 


■ 100000 


X4.MBZ- 


017400 




T9.5 


036132R 


002 


WF,IED- 


000010 




XSOEOT- 


000001 




Xl.MBZ- 


• 017375 


X4.RCE> 


040000 




T9.6 


036336K 


002 


WF.IER- 


000004 




XSOIE - 


000040 




Xl.RBP' 


' 000400 


X4.TSM- 


020000 




19. / 


036570R 


002 


WF.IHI* 


000200 




XSOILA- 


000400 




XI. SPA' 


• 040000 


X4.WRC" 


000377 




. ABS. 


000000 
000000 


000 
Gv. 
























ABS 


045704 


002 
























ERRORS 


DETECTED: 




























( 111 PAGES) 
PAGES) 



VIRTUAL MEMORY USED: 28264 WORDS 
DYNAMIC MEMORY: 20614 WORDS C 79 
ELAPSED TIME: 00:36:10 
CZTSAA,CZTSAA,SEU/-SP-SVC/ML,TSVlA t TSV22A,TSV3B.TSV4,TSV5A,TSV6 



..CI 
..01 
, .El 
..Fl 

. .61 
..HI 
..II 
..Jl 
..Kl 
..LI 
..Ml 
..Nl 



CKMSG2 - COMPARE EX B5 

CXMSG2 - COMPARE EX....C5 

C'KTMES - PRINT TSSR 05 

FXF'EXP - PRINT FIFO E5 

MSGSTA^ - PRINT STAT F5 

MSGSUB - PRINT WRITE G5 

PRAMPKT - PRINT RAM H5 

PRMESS - PRINT CONT 15 

PRMSGEXP - PRINT EXP J5 

PRMSGEXP - PRINT F.XP K5 

PRBYTEXP - PRINT ERR L5 

RAMERR - PRINT RAM . ...M5 
RAMTAOO - PRINT T£ST....N5 



TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 



RAM TEST ... .B9 

SECOND INIT C9 

SECOND INIT,... 09 
SECOND INIT....E9 

SECOND INIT F9 

COMMAND REJ... .G9 

COMMAND REJ H9 

COMMAND REJ 19 

COMMAND REJ....J9 

COMMAND REJ K9 

WRITE CHARA....L9 

WRITE CHARA M9 

WRITE CHARA N9 



TEST 11: NON-TAPE rl 
TEST 11 j NON-TAPE M 
TEST 11: NON-TAPE M 
TEST 11: NON-TAPE M 
TEST 11: NON-TAPE M 
TEST 1a: NON-TAPE M 
TEST ii: NON-TAPE M 
SOFTWARE PARAMETER C 
SYMBOL TABLE 
SYMBOL TABLE 
SYMBOL TABLE 
SYMBOL TABLE 



..B13 

..C13 
..013 
..£13 
..F13 
..G13 
..HIS 
..113 
..J13 
..K13 
..L13 
..M13 



PROGRAM HEADER 
DISPATCH TABLE 
SOFTWARE P- TABLE 
SOFTWARE P- TABLE 
GLOBAL EQUATES SECTI 
MEMORY MANAGEMENT DE 
MEMORY MANAGEMENT DE 



. .B2 
..C2 
,.02 
,.E2 
,.F2 
,.G2 
,.H2 
..12 
. .J2 
. .X2 
. .L2 
. .M2 
*.N2 



BADSSR - PRINT TSSR B6 

SOFINIT - SOFT INITI C6 

CHKAMB - CHECK TSSR 06 

INTR - INTERRUPT ,...E6 

CHKTSSR - CHECK TSSR F6 

TSTLOOP - CHECK ITER....G6 
TSTSETUP - PRINT TES....M6 
TSTEND - PRINT ERR0....I6 

CKDROP - CHECK IF U J6 

SETMAP - SETUP PAR6 K6 

FILLMEM - FILL MEMOR L6 

C«>MEM - COMPARE ME M6 

REGSAV - SAVE R1-R5.,.,N6 



TEST 7: WRITE CHARA.... BIO 

TEST 7: WRITE CHARA CIO 

TEST 7: WRITE CHARA 010 

TEST 7t WRITS CHARA E10 

TEST 7: WRITE CHARA,... F10 

TEST 7: WRITE CHARA.... G10 

TEST 7: WRITE CHARA,... H10 

TEST 7: WRITE CHARA 110 

TEST 7: WRITE CHARA, .. .J10 

TEST 7: WRITE CHARA K10 

TEST 6: VOLUME CHEC. . . .L10 

TEST 8 j VOLUME CHEC....M10 

TEST 8: VOLUME CHEC....N10 



TSU05 REGISTER AND P. 
TSU05 REGISTER AND P. 
TSU05 REGISTER AND P. 
T5U05 REGISTER AND P. 
TSU05 REGISTER AND P. 
SPECIAL. MACROS ANO 0. 
GLOBAL DATA SEC HON . 
TSTBLK - TF3T DATA . 
CAUSAL LNV1WMMFNT S. 
GLOBAL TEXT hfcSSAUfS. 
GLOBAL ERROR RFPORT . 
PRITSSR - PRINT TSSR. 



..B3 
..C3 
..03 
..E3 

..F3 
..G3 

,.H3 
..13 
..JS 

. .K3 
..L3 

..M3 
..N3 



GETPAT - GET 8 BIT . 
GETSEL - ISSUE MENU. 
OKMAN - CHECK MANU. 
KTINIT - SETUP KT11. 
KTINIT - SETUP KTll. 
KTINIT - SETUP KTll. 
KTINIT - SETUP KTll. 
INITIALIZE SECTION . 
INITIALIZE SECTION . 
INITIALIZE SECTION . 
AuO AND DROP UNITS S. 
CLEAN-UP AND REPORT . 
CLEAN-UP ANO REPORT . 



.B7 
.C7 
.07 
.E7 
.F7 
.G7 
.H7 
.17 
.J7 
.K7 
.L7 
.M7 
.N7 



TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 



COMPLETION . 

COMPLETION . 

COU*.ETION . 

COMPLETION . 

COMPLETION . 

COT*>LETION . 

COMPLETION . 

COMPLETION . 

COMPLETION . 

COMPLETION . 

COMPLETION . 

COMPLETION . 



10: BASIC PACK, 



. .Bll 
. .Cll 
..Oil 
..Ell 
, .Fll 
. .611 
. .Hll 
. .Ill 
. .Jll 
. .Kll 
..Lll 
..Mil 
..Nil 



PRITSSR 

PRIPKT 

PRIBXOR 

PRIXOR 

PRIADO 

PRITADO 

SPACtf 

WRTCHR 

REWIND 

CKRAM 

CKRAM2 

CKMSG 

CKMSG2 



PRINT TSSR, . 
PRINT THE .. 
PRINT EXPO.. 
PRINT EXPO.. 
PRINT MEMO.. 
PRINT MEMO. . 
SPACE RECO. . 
WRITE CHAR,. 
POSITION T.. 
COMPARE RA.. 
COMPARE RA.. 
COMPARE WR.. 
COMPARE EX, , 



. .B4 


CLEM 


-UP 


. .C4 


TEST 


s , 


..04 


TEST 


i: 


, .E4 


TEST 


'di 


..F4 


TEST 


2 : 


. .G4 


TEST 


3: 


. .H4 


TEST 


3: 


..14 


TEST 


4: 


..J4 


T^ST 


4: 


. .K4 


TES1 


4: 


..L4 


TEST 


4: 


..M4 


TEST 


4: 


,*N4 


TEST 


4; 



AND REPORT 
BUS RESET T 
BUS RESET T 
WRAP DATA - 
WRAP DATA - 
WRAP DATA - 
wJRAP OATA - 
RAM TEST 
RAM TEST 
RAM TEST 
RAM TEST 
RAM TEST 
RAM TEST 



. . .88 
, ,,C8 
. ,.D8 
. .,E8 
. ,.F8 
. ..G8 
., t HS 
...18 
. ,.J8 
, ..K8 
. ,.L8 
..,M8 
»»*N8 



TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
*! SST 
TcST 



10: 
10: 
10: 
10: 
10. 
10: 
10; 
10: 
10: 
10 1 
lv i 
11: 
IX \ 



BASIC 

BASIC 

BASIC 

BASIC 

BASIC 

BASIC 

BASIC 

BASIC 

BASIC 

BASIC 

BASIC 

NON-TAPF. 

NON-TAPE 



PACK. 
PACK. 
PACK. 
PACK . 
PACK. 

f*i;<, 

Pf'CX, 
PhCK, 
PACK . 
PACK. 
PACK. 

M. 

H. 



.B12 
.C12 
,012 
.E12 
.F12 
.G12 

• H12 
.112 
.J12 
.K12 

r i 

; '-2 

• N12 



